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ABSTRACT 


The linear stability problems for the onset of second- 
ary flow driven by buoyancy force in a class of horizontal 
laminar fluid flows including plane Poiseuille, Hartmann 
and Blasius flows are investigated by a numerical method. 

The low Peclet number thermal entrance region problem in 
parallel-plate channels with unequal constant wall tempera- 
tures considers axial heat conduction effect and allows heat 
penetration through the thermal entrance. The solution is 
obtained by the eigenfunction expansion method employing 
Gram-Schmidt orthonormalization procedure. The axial conduc- 
tion effects on convective instability of a horizontal plane 
Poiseuille flow in the thermal entrance region with respect 
to both longitudinal and transverse vortex disturbances are 
studied. It is found that the transverse vortex disturbances 
are the preferred mode over that of longitudinal disturbances 
for Pe < 1 and Pr > 1 (low Re) in the developing regions up- 
stream and downstream of the thermal entrance. For other 
conditions, the longitudinal rolls have priority of occurr- 
ence. The maximum density effects on convective instability 
of water in the temperature range 0 ~ 30°C are also studied 
by using the same basic state temperature solution. The 
effects of viscous dissipation on the onset of instability 


for longitudinal vortices in the thermal entrance region of 
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a horizontal parallel-plate channel heated from below are 
also studied 

The basic flow solution of Hartmann flow considers 
axial conduction, viscous dissipation and Joulean heating 
effects but neglects axial heat penetration through the 
thermal entrance. The convective instability analysis of 
horizontal Hartmann flow in the thermal entrance region con- 
siders the effects of Prandtl, Peclet, Brinkman and Hartmann 
numbers. 

The maximum density effects on thermal instability in 
a thin horizontal water layer induced by combined buoyancy 
and surface tension gradients are studied by a numerical 
method. The instability results provide further physical 
insight into the problem considered by Nield in 1964. 

The convective instability analysis of Blasius flow 
along a horizontal semi-infinite plate with uniform wall 
temperature complements the hydrodynamic instability analysis 
of laminar boundary layers reported in the literature. The 
instability analysis is further extended to include the maxi- 
mum density effect. 

The heat transfer results for thermal entrance region 
problems of plane Poiseuille flows are also obtained using 


the basic flow solutions. 
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CHAPTER I 


INTRODUCTION 


The Benard nomen and the related thermal instability 
problem for horizontal fluid layers have been investigated 
extensively in recent years. The literature on thermal 
instability is very extensive. An excellent account of 
the hydrodynamic and hydromagnetic stability was given by 
Chandrasekhar [1] in 1961. Since then several review 
articles [2-7] have also appeared in the literature. 

The thermal instability for the onset of stationary 
longitudinal vortex rolls in a horizontal plane Poiseuille 
flow was investigated theoretically by Nakayama, Hwang and 
Cheng [8] and experimentally by Akiyama, Hwang and Cheng 
[9]. The problem was further extended to the thermal 
entrance region considering axial conduction term in the 
energy equation for the basic flow by Hwang and Cheng [10]. 
The experimental investigations on convective instability 
in a horizontal plane Poiseuille flow heated from below 
were reported by Ostrach and Kamotani [11,12]. In the low 
Peclet number flow regime, the assumption of uniform fluid 
temperature at the thermal entrance is apparently unreason- 
able because of the upstream heat penetration through the 


thermal entrance. In low Peclet number flow regime, the 
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question regarding the onset of transverse vortex rolls 
[2] also arises. 

Consideration is next given to the Hartmann flow in 
a horizontal parallel-plate channel heated from below. 
Physically, when an adverse temperature gradient exists 
in the direction opposite to the gravitational force, then 
the basic flow system is potentially unstable because of 
the top-heavy situation. Apparently, the onset of secondary 
flow in the form of stationary longitudinal vortices in the 
thermal entrance region of Hartmann flow is of practical 
interest. 

Similarly, the thermal boundary layers in Blass@ius 
flow heated from below is also potentially unstable. For 
the laminar forced convection problems involving melting of 
ice or solidification of water, the maximum density effect 
on thermal instability is also of practical interest since 
one may wish to find the condition at which free convection 
starts to affect the flow. Apparently, the thermal instabi- 
lity of the Blasius flow has not been studied in the past. 

In this thesis, the convective instabilities in plane 
Poiseuille, Hartmann and Blasius flows are studied by the 
method of small disturbances where a linearization about 
the basic flow is made. For the cases of plane Poiseuille 
and Blasius flows, the effects of maximum density on convec- 
tive instability are also investigated. In the linear 
instability analysis for fully developed Hartmann flow in 


the thermal entrance region of a horizontal parallel-plate 
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channel, the effects of axial conduction, viscous and 


Joulean dissipations are included. In connection with the 


plane Poiseuille flow, the effects of viscous dissipation 


on thermal instability in the thermal entrance region of 


a horizontal parallel-plate channel heated from below are 


also studied. 


Finalty, Nietd's¢hinear stability [13] for 


a horizontal liquid layer considering surface tension and 


buoyancy effects is extended to the case of water with maxi- 


mum density effect for the temperature range 0 ~ 30°C. 


In order to show clearly the physical problems con- 


sidered in this thesis, the classification of the problems 


is given below (see Fig. 1): 


1. Plane Poiseuille Flow 


(a) 


(b) 


Uc) 


(d) 


Thermal Entrance Region Problem for Low Peclet 
Number Flow Regime (Basic Flow Solution), 

T, i Tos T = To at X = -~ (Chapter II). 

Axial Conduction Effects on Convective Instabi- 


Pity eel ee a Uta iin cat) os oc (Chapter III). 

Maximum Density Effects on Convective Instabi- 
; > a ee 

lity, Ty % To» T = To at X = -o (Chapter IV). 


Viscous Dissipation Effects on Convective 


Instability; Ty > Tos hoz Seatix = 0 


0 
(Chapter V). 


2. Hartmann Flow 


(a) 


Basic Flow Solution with Axial Conduction, 
Joule Heating and Viscous Dissipation Effects, 


Utd a Ty at X = 0 (Chapter VI). 
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(b) Magnetic Field Effects on Convective Instabi- 


Titty? T, > To» T = Ty at x e="O (Chapter avit). 


3. Horizontal Liquid Layer with Free Surface 


(a) Maximum Density Effects on Thermal Instabi- 


lity Induced by Buoyancy and Surface Tension, 

2 > 
es Tax < 
4. Blasius Flow 


T Ts (Chapter VIII). 
(a) Convective Instability of Blasius Flow, 
ioe (Chapter IX). 


(b) Maximum Density Effects on Convective Instabi- 


gts ar 


UN EY og cei de tome NOW Sale ayy eho 


(Chapter X). 


A remark regarding the structure and the method of 
presentation for the present dissertation is now in order. 
After careful considerations, it is decided that each 
chapter will be treated independently. The independent 
presentation of each chapter affords one to discuss clearly 
the scope of each investigation and the results obtained 
therein. Thus the conclusions and significance for each 


problem may be assessed readily. 
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Fig. 1 Schematic Diagram for Thermal Instability Problems 
Considered in this Thesis 
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CHAPTER II 


LOW PECLET NUMBER HEAT TRANSFER IN THE THERMAL 
ENTRANCE REGION OF PARALLEL-PLATE CHANNELS 
WITH UNEQUAL WALL TEMPERATURES 


The problem of low-Peclet-number thermal entry heat 
transfer for plane Poiseuille flow in parallel-plate 
channels with uniform but unequal wall temperatures is 
approached hy the eigenfunction expansion method utilizing 
the Gram-Schmidt orthonormalization procedure. The formula- 
tion considers axial heat conduction and allows upstream 
heat penetration through the thermal entrance. Numerical 
results are obtained for the case with entrance condition 
parameter 86 = ] and Peclet number Pe = 1, 5, 10 and 50. 

The effect of Peclet number on temperature distributions 

in both upstream and downstream regions is studied. At 

Pe = 50, the concept of thermal boundary layer is applicable 
and the present series solution does not yield physically 
reasonable temperature distribution locally near the upper 
plate at the thermal entrance. The difficulty may be 
attributed to the nature of thermal boundary conditions 

at the thermal entrance and the transition from elliptic 
problem to parabolic problem with the increase of Peclet 


number. 
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Nomenclature 


coefficients of series expansion in 


equations (5) and (6) 
coefficients in equation (13) 
orthonormal functions 


local heat transfer coefficients at 


lower and upper plates 

thermal conductivity 

height of channel and L/2 

local Nusselt numbers, h,2/k and ho2/k 
Peclet number, 4 U w/o 

coefficients in equation (14) 


rates of heat transfer per unit area at 


lower and upper plates 


fluid temperature, uniform entrance 
temperature, uniform but different lower 


and upper plate temperatures, respectively 
bulk temperature and (T, + T,)/2 

axial and mean velocities, and U/U,, 

axial and transverse coordinates 


dimensionless coordinates, X/(3Pe2/8) 


and Z/2 
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eigenfunctions 


transformed coordinate, (z + 1)/2 


thermal diffusivity 
eigenvalues 
Kronecker delta 


dimensionless temperature and uniform 
entrance temperature, ORE AGS ire 


and Ol admis aneomeni) 


temperature distributions in the upstream 
and downstream regions and bulk tempera- 


ture 
kinematic viscosity 


dimensionless temperature profile, 
(1 - 8)/2 


orthonormal functions 
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2.1 Introduction 

When the axial heat conduction effect is important 
for the thermal entrance region problem in tubes or channels, 
the assumption of uniform entrance temperature at X = 0 
used in the classical Graetz formulation [1] becomes physic- 
ally unrealistic because of the upstream heat penetration. 
The elliptic energy equation with the axial conduction 
term has been solved by several investigators [2-6] con- 
sidering the region extending from X = -~ to X = © for 
fully developed laminar flow in tubes or channels using 
different theoretical solution methods. The thermal bound- 
ary conditions considered so far are either uniform wall 
temperature or uniform wall heat flux for the downstream 
region (X > 0) with the upstream region (X < 0) perfectly 
insulated. In addition, the fluid temperature is taken to 
be uniform at X = -~, | 

Considering the case of plane Poiseuille flow in 
horizontal parallel-plate channels, the thermal boundary 
conditions at the upper and lower plates may be different 
in practical applications. The interesting case of uniform 
but unequal wall temperatures [7] for Graetz problem does 
not appear to have been investigated in the past using the 
exact formulation [4] considering the axial heat conduction 
effect. 

The purpose of this study is to present heat transfer 
results in the thermal entrance region of plane Poiseuille 


flow between two horizontal parallel plates maintained at 
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unequal but constant wall temperatures. The analysis is 
based on a rigorous formulation [4] and the main concern 
here is the heat transfer characteristics in the low 

Peclet number flow regime. The present analysis is motiv- 
ated by the thermal instability analysis (Chapter III) for 
the onset of longitudinal and transverse rolls in parallel- 
plate channels heated from below and serves as a basic flow 
solution. As compared with the earlier works [2-6], the 
present problem involves two distinct sets of eigenvalues 
related to even and odd sets of eigenfunctions [7] whereas 
the published and analytical solutions are concerned only 


with even eigenvalues and eigenfunctions. 


2.2 Theoretical Analysis 


2.2.1 Governing Equations 

Neglecting the viscous dissipation effects, the energy 
equation and the boundary conditions in dimensionless form 
for the thermal entrance region problem (see Fig. 1) with 
axial heat conduction can be written as [4] 
2<h2 
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Sp Wttabris 02, .05(%, ue R], 6, (er=1 hs abenfond0 edexes gene (3) 
6, (0,z) = 6,(0,2), 96, (0,z)/dx = 96(0,z)/9x at x = 0 (4) 


where the dimensionless variables are defined in Nomencla- 
ture and2u-s (3/2)(1,- 2°) for plane Poiseuille flow. As 
Pe + , one recovers the case of negligible axial conduc- 


THON e ee. 


2.070; 850 1UT10N 
The temperature distributions in the adiabatic and 
the thermal entrance regions satisfying the conditions at 


xX = + © are sought in the following form [4,7]: 


6, (x,z) eo, ¢ L Brn Gz) exp (a_x) 


where d,s Ens and Yas aa are the even and odd eigenvalues 


and eigenfunctions, respectively, for the adiabatic region. 
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Similarly, Bae ene and Ra? Z, are the even and odd eigen- 


n 
values and eigenfunctions, respectively, for the thermal 
entrance region. The associated characteristic equations 


and boundary conditions are: 
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It is noted that as Pe + », the set of equations (9) 
and (10) reduces to the type of the Graetz problem [1]. In 
this study, equations (7) to (10) are solved numerically by 
using a fourth-order Runge-Kutta method [9]. Two hundred 
equal steps are employed and the boundary conditions at 
z = 0 are used as the starting point. The eigenvalues are 
improved by using the variable secant method [9] which 
requires assuming two trial values with a difference of 


say 0.005 at the start. The even eigenvalues BY, are listed 
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in reference [4] for Pe = 1, 5, 10, 50 and can be used as 
the initial values in this study. The number of iterations 


required to have a tolerance of d¥ (1) /dz, dF (1)/dz, 


8 


RAQ1); or Z (1) < 10 ~ depends on the initial guess for 


each eigenvalue but it usually takes 3 to 7 iterations. 
The spectrum of the eigenvalues is checked by plotting a 


eS BetorY Y, versus n. The eigenvalues for Pe = 1, 5, 10, 


Dien 
50 are listed in Tables 1 and 2. The even eigenvalues Os 


B, are found to agree with those reported in reference [4]. 


n 


The series expansion coefficients Ay? B Cir, D., are 


‘ita iy 
determined by applying the matching conditions at x = 0, 
equation (4), for the two regions. Substituting equations 


(5) and (6) into (4), yields: 


Since the axial conduction term is retained, the eigen- 
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functions lack the orthogonality property and the eigen- 
function expansion technique commonly used for the Sturm- 
Liouville system cannot be used here in evaluating the 
series expansion coefficients. Following the procedure 
described in reference [4], the four complete sets of trial 


orthonormal functions in terms of Me Fe R_, and Za? 


n 
respectively , can be constructed by a linear combination 


in the following form: 


= J = J 
>; 2 bode Uz) f )) duF (z), 
(13) 
j : 
u j 5 j 
v; ny aR (z); S ; 3 eee) 


where i $5 9;d2 Bowen, = sees) oe. anda Simian rela- 


Lionsnip Noldas tor as ue and is The Gramm-Schmidt ortho- 
normalization procedure can now be applied step by step as 
described in references [4,10]. By the following linear 
transformations [4], the eigenfunctions can be expressed 


conversely in terms of the orthonormal functions as 


n n 
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The coefficients qi re Pj and ti can be obtained from 
the matrix equations [q] = ina 4 [r] = Pa )e.. [p] = fal! 
and [t] = Belo Substituting equation (14) into equations 


(11) and (12), one obtains 


(15) 


By noting the orthonormal properties for Vas O53 =; 
and Tye one obtains the following sets of equations after 


truncating the infinite series at n =N. 
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In this study,,.N is taken to be 20: for Pe =], 5, 10 and 50. 
The two systems of simultaneous equations for the co- 
efficient Bae C. and AW? Dd, are solved by using the Gaussian 
elimination method (IBM-SSP-DGELG) on IBM-360/67 with a 
relative tolerance of 10's. The results and the related 
constants are listed in Tables 3-6. The series expansion 
coefficients with N = 20 are also obtained by using a method 
for nonorthogonal series described by Kantorovich and Krylov 
[11] but it yields negligible improvement in the accuracy 
of the series expansion coefficients. After obtaining the 
coefficients, the matching conditions at x = 0 given by 
equation (4) are checked. The first matching condition 
8, = 8, is satisfied very well and three significant figures 
agree excluding the points near the upper and lower plates. 
The second matching condition 96 4/ax = 965/9X is met satis- 
factorily but the agreement is one order lower. It is 
expected that the matching conditions at z = +1 will not 
be satisfied in view of the discontinuity of the boundary 
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figures agree for bulk temperatures at x = 0. 
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2.2.3 Local Nusselt Numbers 

The local Nusselt numbers Nu, and Nu, at the lower 
and upper plates defined by the following equations for the 
case of heating from below (T, > Ty) are of practical 


interest in this study. 


h,(42) 30 
Niuoo = —- ae mo re (554) (19) 
] oe T + OF OZ z=-] 
h,(42) q 96 
he Z _ (42) 2 4 4 2 
pom aues Ae Teaoml It fe o= iC .e O27 he oe 
where the bulk temperature 8, is 
1 ] 
Grecey pr ecud?) |= dz (24) 


Substituting equation (6) into equations (19) to (27) yields, 


4+4[ 4 G(R, (1) /dz)exp(-Byx) + } peda ag 
+(3/2) uh C_exp(-8 x) CCAR, (1)/dz)/8 2+(86 /3Pe) he R,(z)dz] 
ee) 


3 2 5 dR, (1)dz 8B. 1 
s) TPL L, C,exp(-8 x) Lome + (sae fe R(z)dzJ (23) 
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The bulk temperature in the adiabatic section is 


: jes eal r 2 2 
cya GE (S55) d Ba exp(a_ x) I Y 
One may note that the case Pe + ~ corresponds to that of no 


axial conduction. 


2.3 Results and Discussion 
The profiles of the first eight eigenfunctions only 


for Ye Ra’ zy and ES are shown in Figs. 2 to 5 for Pe = 1. 


The developing temperature profiles, 6 = 5(1 - 6), versus 


n 


the transformed coordinate z = (z + 1)/2 in both upstream 
and downstream regions are presented in Figs. 6 to 8 for 


Pe = 1, 5 and 10, respectively, with 85 2 vith! nabig 816 


(Pe = 1), the temperature profile is seen to be flat up- 
stream of x = -4 (¢, = 0.27). At x = -30, one obtains 

6 = 0.027. This suggests that at Pe = 1 the axial heat 
conduction effect is felt throughout a rather extensive up- 
stream region. For the upstream region x < -4, the effect 
of the lower plate x > 0 at temperature Ty disappears com- 


é in energy 


pletely and the transverse conduction term 3*e/az 
equation (1) can be neglected entirely. Thus, at Pe = 1 

the region -30 < x < -4 can be regarded to be a pure axial 
conduction region. The fully developed temperature profile 

is seen to be attained at x ~*~ 6. In the region -0.1 < x < 0.1, 


the change of the temperature profile is rather gradual. In 
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Fig. 6, the axial distributions of the wall temperatures 
in the adiabatic region are also of interest. 

The effect of the axial heat conduction on developing 
temperature profiles in both adiabatic and heated regions 
persists for Pe = 5 and 10 as shown in Figs. 7 and 8, 
respectively. It is also seen that the uniform entrance 
fluid temperature do = 0 is practically reached at x = -2 
and -1 for Pe = 5 and 10, respectively. At Pe = 50 shown 
in Fig. 9, the axial heat conduction effect is confined to 
arnatnere=sial tanegioneda<uzes< d0 e39ns0n05t< x¥o< 0. ihheeup= 
stream heat penetration in the region near the upper plate 


- <i xXhs Loma is apparently not a physical 


OG <pzes biOse-10 
solution and the temperature field is bo = 0 there. The 
imposition of the discontinuous boundary conditions 

85 ,(051)/9z = 0 and 95(0,1) = 0 coupled with the uniform 
entrance temperature condition 5, = 0 atax i= .4>0for 

0.6 < z < 1.0 is apparently the source of difficulty. The 
mathematical conditions mentioned are incompatible with the 
physical situation and one thus concludes that the mathe- 
matical solution fails for the small region 0.6 <¢ z< 1.0; 


-107° se 


 Xhs 105 From practical viewpoint, it is seen 

that the axial heat conduction is not significant at Pe > 50. 
It should be pointed out that the above difficulty arises 
only when the boundary conditions at lower and upper plates 
are different. This also serves to emphasize the differ- 
ence between the present problem and that of published 


work [4]. 
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For the present problem, the matching of the tempera- 
tures and axial temperature gradients at x = 0 is critical 
and the results for 6 at x = 0 are shown in Fig. 10 for 
Pe = 1, 5, 10 and 50. The matching is satisfied very well 
for Pe = 1, 5 and 10 but the numerical result for Pe = 50 
near the upper plate is not a physical solution. Physic- 
ally, one knows that the upstream and downstream tempera- 
tures, 5) and Poo should be continuous at x = 0 including 
upper and lower plates. Fig. 10 shows that at the lower 
plate z = 0, the temperature discontinuity for 6 increases 
with the increase of Peclet number. On the other hand, at 
the upper plate z = 1, the agreement for $6) and boo is 
better for Pe = 10 than for Pe = 1. At Pe = 50, the dis- 
continuity for do at z = 1 is clearly the source of diffi- 
culty since the series solution for 6 must be continuous 
and $6, = 0 for 0.2 ¢ z< 1.0. The mathematical difficulty 
near the upper plate at x = 0 for Pe = 50 can also be 
explained from the energy equation (1). When the Peclet 
number is large, the concept of thermal boundary layer is 
applicable and 00/ax and 9*esax? are zero in the neighbour- 
hood of the upper plate near x = 0. As a result, one obtains 
3*e/aze = 0 only and the transverse conduction term cannot 
be balanced by the convective term. One notes that the 
above situation does not occur near the lower plate where 
One has thermal boundary layer. The above explanation 
represents another source of difficulty besides the thermal 


boundary conditions at x = 0. Further increase of the 
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number of series coefficients to n = 24 does not improve 
the numerical results! forse = 1),° 5,510 ‘and 50 near x =.0. 
It is found that with n = 26, the Gram determinant [4] 

A, + 0 for the odd eigenfunctions zy and the series co- 


efficients cannot be obtained. It is also found that with 


3 (see also 


n = 26, the eigenfunction Z| is of the order 10. 
Bbgee4s) .thit isethusitseenithatdasfneincreases ZY decreases. 
The effect of Peclet number on the axial distribution 
of the bulk temperature is shown in Fig. 11 and the numeri- 
cal results are listed in Table 7. At Pe = 1, the axial 
heat conduction effect is quite appreciable but at Pe = 50 
the effect may be practically negligible. The upstream and 
downstream development lengths for attaining the asymptotic . 
values a = 1 and 0, respectively, depend on Peclet number. 
The local Nusselt number results at the lower and 
upper plates are shown in Fig. 12 for pee- 1] 5thdOsp500and 
co with 85 = 1 and the numerical results are listed in 
Table 8. The behavior of the local Nusselt number at lower 
plate Nu, is generally similar to that reported in refer- 
ences [4,10]. Near x = 0, both Nu, and Nu. become quite 
uniform with the decrease of Peclet number. When the axial 
heat conduction is negligible (Pe + ~), Nui peta sh Xe 0 
and Nu, is zero throughout some thermal-entry region near 
x = 0. The case of Pe = ~ is also discussed in reference 
iv). SLteisiseensthaty both Nu, and Nu, for various Peclet 


numbers approach the same fully developed value 4.0 and the 


thermal entrance length increases with the decrease of 
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Peclet number. 


2.4 Conciuding Remarks 

iv. © €hor 89 = 1, the present physical model is not 
applicable when Pe > 50 and the classical Graetz formula- 
tion neglecting axial heat conduction should be used. It 
appears that the mathematical difficulty arises as the 
physical problem changes from elliptical problem to para- 
bolic problem. When Pe < 50, the axial heat conduction 
effect on bulk temperature and local Nusselt numbers is 
appreciable. The numerical results for 86 # 1 can also be 
obtained without difficulty. 

2. The even eigenvalues ans BY check very well with 
those reported in reference [4] and can also be used in 
ascertaining the eigenvalue spectrum. The characteristic 
equations (7) and (9) suggest that for Pe < 1, the approxi- 


mate eigenvalues for a, and B, can be obtained by the follow- 


n 


ing relations. 


2 8Pe ] 
J uae kn 


Generally, the above approximations improve with the increase 


Of n., It is.found that the above approximations can still 
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be used for Pe = 5 but the accuracy decreases by one order 
of magnitude as compared with the case of Pe = 1. It is 
also found that elie (a, + ny 


for any Pe. For Pe = ~, the eigenvalues Bae ies from refer- 


y2igndey Franeige’ BRAY /2 
ence [7] are used. 

3. The present numerical results as shown in Fig. 10 
clearly bring out the nature of the analytical solution for 
the present elliptic problem with Pe = 50. The local mathe- 
matical difficulty for Pe = 50 near the upper plate at 
x = 0 is noteworthy and the phenomenon does not appear to 
have been pointed out in the past. At Pe = 50, the diffi- 
culty is confined to the local region near x = O and z = 1] 
but the bulk temperature appears to be reasonable as shown 
Werte a.Gieee tLe 

4. For low Peclet number flow regime, the axial heat 
conduction can cause a considerable increase in thermal 
development lengths for both upstream and downstream regions. 

5. For low Peclet number flow (Pe < 50), one can 
clearly identify three different regimes, namely pure axial 
heat conduction, developing and fully developed regions, for 
the thermal entrance region problem. When heating is from 
below (T, > To) > thermal instability problem concerned with 
the onset of secondary flow in the form of longitudinal vor- 
tices or transverse rolls arises at a certain AT = T; - To. 
The instability problem is studied in Chapter III, and the 


present solution serves as a basic flow solution. 
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Table 1. 


0.3060040E+00 
0.1105802E+01 
0. 1550091E+01 
0.1892395E+01 
0.2181588E+01 
0.2436688E+01 
0.2667499E+01 
0.2879869E+01 
0. 3077620E+01 
0.3263410E+01 
0.3439178F+01 
0.3606391E+01 
0.37661875+01 
0.3919475E+01 
0.4066991E+01 
0.4209342E+01 
0.4347036E+01 
0.4480502E+01 
0.4610108E+01 
0.4736172E+01 


ad 


On 


0.1508323E+01 
0.2678328E+01 
0.3606607E+01 
0.43454008+01 
0.4976383E+01 
0.5536189E+01 
0.6044507E+01 
0.6513352E+01 
0.695069TE+01 
0.7362127E+01 
0.775177B8Et+01 
0.8122776E+01 
0. 8477565E+01 
0.8818101E+01 
0.9145976E+01 
0.94625 05E+01 
0.9768790E+01 
0. 1006577E+02 
0.10354 24E+02 
0. 1063490 E+02 


Eigenvalues for Pe = 


Pn 


0.7287309E+00 
0.1311250EF+01 
0. 1702419E+01 
0.2019032E+01 
0.2292299E+01 
0. 2536286E+01 
0.2758776E+01 
0.2964615E+01 
0.3157062E+01 
0. 33 38434E+01 
0.3510448E+01 
0. 3674419F+01 
0.3831380E+01 
0.3982160E+01 
0.4127437E+01 
0.4267773E+01 
0.440364 1E+01 
0.4535443E+01 
0.4663524E+01 
0.4788183E+01 


Ph 


0. 1337162E+01 
0.2776457E+01 
0.3686892E+01 
0.4413191E+01 
0.5036002E+01 
0.5589979E+01 
0.6093884E+01 
0.655924 2E+01 
0.6993738E+01 
0. 7402800E+01 
0.7790430E+01 
0.8159679E+01 
0.8512937E+01 
0.8852119E+01 
0.9178783E+01 
0.9494223E+01 
0.9799522E+01 
0. 1009560E+02 
0. 1038325E+02 
0. 1066314E+02 


1 and 5 


S 
n 


0.7889385E+00 
0.134658 1E+01 
0.1729745E+01 
0.2042120E+01 
0.2312659E+01 
0.2554701E+01 
0.2775716E+01 
0.2980385E+01 
0.3171876E+01 
0.3352446E+01 
0.3523776E+01 
0.3687155E+01 
0. 3843595E+01 
0.39939 14E+01 
0.41338779E+01 
0.4278743E+01 
0.4414273E+01 
0.454576 7E+01 
0.4673564E+01 
0.4797963E+01 


S 
n 


0.1960584E+01 
0.3174373E+01 
0.3992958E+01 
0.4671500E+01 
0.5263707E+01 
0.5795909E+01 
0.6283296E+01 
0.6735567E+01 
0.7159362E+01 
0.755946 1E+01 
0.7939442E+01 
0.8302064E+01 
0.8649508E+01 
0.8983533E+01 
0.9305585E+01 
0.9616866E+01 
0.9918389E+01 
0.1021102E+02 
0. 1049550E+02 
0.1077249E+02 
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Yn 


0.1062382E+01 
0.1519527E+01 
0. 1867454E+01 
0.2159992E+01 
0.24173738+01 
0.2649867E+01 
0.2863546E+01 
0.3062351E+01 
0.3249014E+01 
0.342552 1E+01 
0). 3593369E+01 
0.3753720E+01 
0.3907498E+01 
0.4055449E+01 
0.419819 1E+01 
0.4336239E+01 
0O.4470028E+01 
0.4599929E+01 
0.4726264E+01 
0.4849312E+01 


Yn 

0.2180762E+01 
0.3263730E+01 
0.4066260E+01 
0.4734824E+01 
0.5320192E+01 
0.5847354E+01 
0.6330835E+01 
0.6779968E+01 
0.7201172E+01 
0.7599085E+01 
0.7977189E+01 
0.8338178E+01 
0.8684183E+01 
0.9016930E+01 
0.9337834E+01 
0.9648079E+01 
0.994866 1E+01 
0.102404 3E+02 
0.1052412E+02 
0.1080038E+02 
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Table 2. 


0.2891829E+01 
0.4236301E+01 
0.63553 16E+01 
0.5365803E+01 
0.7216787E+01 
0. 7988097E+01 
0.86922481E+01 
0.93440 10E+01 
0.9953508E+01 
0.1052798E+02 
0.1107282E+02 
0.1159218E+02 
0.1208932E+02 
0. 1256686E+02 
0.1302694E+02 
0. 1347136E+02 
0.1390160E+02 
0.1431895E+02 
0.14 72449E+02 
0.15119 19E+02 


= Ae 


mn 


0.1051927E+02 
0.1584147E+02 
0.1786702E+02 
0.1885437E+02 
0. 1982894E+02 
0.21043 13E+02 
0.2227199E+02 
0.2347410E+02 
0.2463882E+02 
0.25764 02E+02 
0.2685069E+02 
0.2790096E#02 
0.2891733E+02 
0.2990226E+02 
0.30858 12E+02 
0.3178705E+02 
0.3269101E+02 
0.3357178E+02 
0.3443095E+02 
0.3526995E+02 


Eigenvalues for Pe 


Pn 


0. 1539808E+01 
0.3672146E+01 
0.5012257E+01 
0.6068040E+01 
0.6967729E+01 
0.7764921E+01 
0.8488 154E+01 
0.9154776E+01 
0.9776270E+01 
0. 1036070E+02 
0.1091398E+02 
0.114406 1E+02 
0.1194411E+02 
0. 12427268+02 
0. 1289236E+02 
0. 1334128E+02 
0.1377560E+02 
0.1419667E+02 
0. 1460563E+02 
0. 1500346E+02 


By 

0. 1673994E+01 
0.5363987E+01 
0. 8447450E+01 
0. 1100647E#02 
0.1319919E+02 
0.1513470E+02 
0. 1688098E+02 
0. 1848 175E+02 
0. 199666 1E+02 
0.2135656E+02 
0. 2266708E+02 
0.2390997E+02 
0.2509439E+02 
0.2622769E+02 
0. 2731579E+02 
0. 2836358E+02 
0.2937515E+02 
0. 3035395E+02 
0.3130292E+02 
0.3222458E+02 


= 10 and 50 


& 
n 


0.3111802E+01 
0.4804503E+01 
0.5879756E+01 
0.6799235E+01 
0.76712023E+01 
0.8347501E+01 
0.9023958E+01 
0.9653538E+01 
0.1024475E+02 
0.1080382E+02 
0.1133547E+02 
0.1184335F+02 
0.1233039E+02 
0.1279896E+02 
0.1325101E+02 
0. 1368817E+02 
0.1411182E+02 
0.7452313E+02 
0. 1492318E+02 
0.15312738+02 


€ 
n 


0.1584219E+02 
0. 179 04H0E+02 
0.1922040E+02 
0.2042735E+02 
0.2165960E+02 
0.2287736E+02 
0.2406138E+02 
0.2520634E+02 
0. 2631205E+02 
0.2738022E+02 
0.2841323E+02 
0. 2941357E+02 
0. 3038369E+02 
0.3132582E+02 
0. 3224204E+ 02 
0. 3313419E+02 
0. 3400397E+02 
0.3485289E+02 
0.3568231E+02 
0. 3649346E+02 


29 


Yn 

0.2781286E+01 
0.4392325E+01 
0.5564 796E+01 
0.6533184EF+01 
0.7376995E+01 
0.8134519E+01 
0.8827723E+01 
0.9470599E+01 
0.1007271E+02 
0.106409 3E+02 
0.1118039E+02 
0.1169506E+02 
0.1218807E+02 
0.1266194E+02 
0.1311873E+02 
0.1356018E+02 
0.1398772E+02 
0. 1440260 Et02 
0.1480588Et02 
0.151984 8E+02 


Yn 


0.3585381E+01 
0.6981863E+01 
0.9781692E+01 
0.1214060Et#02 
0.1419411E+02 
0.1602834EF+02 
0.1769745E+#02 
0.1923720E+02 
0.2067237E+02 
0.2202094E+02 
0.2329636E+02 
0.2450899E+#02 
0.2566703E+02 
0.2677706E+02 
0.2784445E+02 
0.2887367E+02 
0.2986845E+02 
0.3083200E+02 
0.3176702E+02 
0.3267588E+02 
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Table 3. 
Pe = |] 

C 

n n 
1 O.1556876E+00 
2 -~0.2588527E-01 
3 0.1218683E=-01 
4 -0.7565136E-02 
5 0.5355651E-02 
6 -0.4094527E-02 
T 0.3292452E8=02 
8 -0.2743783E-02 
9 0.2348418F=-02 
10 -0.20523438-02 
11 0. 18241518-02 
12 -0.1644527E-02 
13. 0.1501153E=-02 
14 -0.1386052E-02 
15 0.1294273E=-02 
16 -0.1223370E-02 
17. 0.1173967E-02 
18 -0.1152708E-02 
19 0.1187520E-02 
20 -0.1579937E-02 

Pe = 5 
n Cy 


1 0.6128442E+00 
2 -0.9205655E-01 
3 0.4335907E-01 
4 -0.2698757E-01 
5 0.1913828E-01 
6 -0. 1464728E=-01 
7 0.1178582E-01 
8 -0.9825556E=-02 
9 0.8411164E-02 


10 ~0.7350581E-02 
11. 0.6531930E-02 
12 -0.5886257E-02 
13. 0.5369433E-02 
14 -0.4952638E-02 
15 0.4617556E-02 
16 -0.4354154F=02 
17 0.4161626E-02 
18 -0.4054604 F-02 
19 0.4056730E-02 
20 -0.5833665E-02 


Series Coefficients for Pe = 


D 
n 


-0.56310408+00 
0.4289643E+00 
~0.3693818E+00 
0. 3345909E+00 
~0. 3116688E+00 
0.2954951E+00 
-0. 283596 1E+00 
0.2746250E+00 
~0.2677920E+00 
0.2626 141E+00 
~0.2587976E+00 
0.2561781E+00 
~0.2546995E+00 
0.2544 149E+00 
-0.2555294E+00 
0.2585012E+00 
-0.2643434E+00 
0.2755413E+00 
- 0. 3003373E+00 
0.4215498E+00 


Dh 


~ 0.73355 28E+00 
0.5115382E+00 
~0.4297348E+00 
0.3845 846E+00 
-0.3556318E+00 
0. 3355172E+00 
-~0.3208508E+00 
0.3098381E+00 
-0.3014440E+00 
0.2950394E+00 
-0.2902380E+00 
0.2868122E+00 
-0.2846605E+00 
0. 2837972E+00 
-0.2843871E+00 
0.2868250F+00 
-0.2919822E+00 
0. 3018652E+00 
-0.3194410E+00 
0.4848251E+00 


1.88 


B 
n 


-~0.8892877E+00 
0.3507104E-01 
~0.1235074E-01 
0.64604 06E-02 
~0.3970785E-02 
0.2658857E-02 
-0.1872166E-02 
0.1357959E-02 
-0.1000113E-02 
0.7386351E-03 
-0.5397002E-03 
0.382867 1E-03 
-0.2550020E-03 
0.1471409E-03 
~0.5268308E- 04 
-0.3378587E-04 
0.1175729E-03 
-0.2054187E-03 
0.3094696E-03 
-0.4635203E-03 


B 
n 


~0.5424658E+00 
0.1197280E+00 
-0.4348329E-01 
0.2282867E~-01 
-0.1404017E-01 
0.9392467E=02 
-0.6599310E-02 
0.4770626E-02 
~0.3496144E-02 
0.2563402E-02 
-0.1852358E-02 
0.1290290E-02 
~0.8302921E-03 
0.4401113E-03 
-0.9562855E-04 
-0.2235444E=03 
0.5384772E-03 
~0.8778419E-03 
0.1296098E-02 
-0.1934437E-02 


30 


A 
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0.942664 3E+00 
-0.4586241E+00 
0.3306520E+00 
-0.2613842E+00 
0.2150673E+00 
-0.18048733E+00 
0.1527655E+00 
-0.1294506E+00 
0.1090760E+00 
~0.9071079E~01 
0.737048 76E=-01 
~0.5756203E-01 
0.418629 1E=-01 
-0.2620781E-01 
0.1015734E-01 
0.6846355E-02 
-0.256350 1E=01 
0.4766345E-01 
-~0.7608606E-01 
0.1203376E+00 


A 
n 


0.7917136E+00 
-0.4260546E+00 
0.3302412E+00 
-0.2680021E+00 
0.2232743E+00 
-0.1885057E+00 
0.159924 7E+00 
~0.1354222E+00 
0.1136966E+00 
~0.9387669E-01 
0.7532799E-01 
~0.5754604E-01 
0.4008290E=-01 
-0.2248921E=-01 
0.4243016E-02 
0..1535399E-01 
-0.3739409E-01 
0.6387234E=-01 
-0.9922852E-01 
0.15576 75E+00 
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Table 4. 


0.8919186E+00 
-0.1335596EF+00 
0.6208682E-01 
-0.3855233E-01 
0.2731553E-01 
-~0.2089380E-01 
0.1680396E-01 
-0. 1400247 E-01 
0.1198076E-01 
-0. 1046403E-01 
0.9292193E-02 
-0.8366492E-02 
0.7623542E-02 
-0.7021615E=-02 
0.6533578E-02 
-0.6143181E-02 
0.58449 78E-02 
-0.5653665E-02 
0.5360702E-02 
-0.8493420E-02 


0.1173517E+01 
~0.2472103E+00 
0.1134188E+00 
-0.6870827E-01 
0.4802351E=01 
-0.3643923E-01 
0.2913547E~-01 
-0.2415691E=-01 
0.2057170E-01 
-0.1788212E-01 
0.1579968E-01 
-0.1414644E-01 
0.1280749E-01 
-0.1170593E-01 
0.1078596E-01 
-0. 1004443E-01 
0.9201800E=02 
~0.9612815E=-02 
0.6512986E-02 
-~0.1063265E-01 


D 
n 


~0.9464541E+00 
0.6168914E+00 
~0.5065048E+00 
0.4481160E+00 
-0.4114227E+00 


0.3862228E+00. 


-0. 3679679E+00 
0.3542948E+00 
-0.3438547E+00 
0.3358301E+00 
-0.3297140E+00 
0. 3251958E+00 
-0.3221125E+00 
0.3204253E+00 
~0.3202435E+00 
0.3218769E+00 
-0.3260194E+00 
0. 3344 835E+00 
-0.3352307E+00 
0.5608646E+00 


Dh 
-0.2064599E+01 
0.2202653E+01 
-0.2289122E+01 
0.2230526E+01 
-0. 2089294E+01 
0.1929673E+01 
~0.1784788E+01 
0. 1664559E+01 
~0.1568214E+01 
0.1491690E+01 
~0.1430730E+01 
0. 1381813E+01 
-0. 1342290E+01 
0. 1310 243E+01 
~0. 1284 36 9E+01 
0. 1263963E+01 
-0.1248134E+01 
0.1245012E+01 
-0.1215001E+01 
0.1389790E+01 


Series Coefficients for Pe = 10, 50 


B 
n 
-0.2892040E+00 
0.125129428+00 
0.3088496E-01 
~0.5772156E-01 
-0.1912460E-01 
0.12815 74E-01 
-0.8991931E=02 
0.6473763E-02 
-0.4710562E-02 
0. 34146 282-02 
-0.2422258E-02 
0.16336 14E-02 
-0.98373392-03 
0.4273208E-03 
0.7039815E-04 
~0.5402192E=03 
0.1016211E-02 
-0.1547689R-02 
0.2226568E-02 
-0.3233073E-02 


Bh 
-0.1683876E-02 
0. 1633638E-02 
-0.8145717E=-02 
0. 1656898E-01 
~0.1642383E-01 
0.1125556E-01 
-0. 76676 94E-02 
0.5073201E-02 
-0.3105984E-02 
0.154979 1E-02 
-0.2640038E-03 
-0.8498411E-03 
0.1867187E-02 
-0.2852022E-02 
0.3862825E-02 
~0.4947740E-02 
0.6111480E-02 
~0.7210623E-02 
0.7726018E-02 
-0.6545026E-02 


3] 


A 
n 
0.5903097E+00 
-0.3653355E+00 
0.3207773E+00 
-0.2708927E+00 
0.2296907E+00 
-0.1955116E+00 
0.1663082E+00 
-0.1406017E+00 
0.1173516E+00 
-0.9579600E-01 
0.7533773E-01 
~0.5546776E-01 
0.3570048E-01 
-0. 155723 8E=-01 
~0.5747644E-02 
0.2900392F-01 
-0.5577022E-01 
0.8887634E-01 
-0.1343555E+00 
0.2050235E+00 


A, 
-0.2711125E-01 
0.9177557E-01 
-0.1855223E+00 
0.2363296E+00 
-0.2295194E+00 
0.1943915E+00 
~0. 1452574 E+00 
0.8765537E-01 
~0.2359406E=-01 
-0.4673073E-01 
0.1243541E+00 
-0.2114489E+00 
0.311478 3E+00 
-0.4293466E+00 
0.5707804 E+00 
-0.7385106E+00 
0.9189002E+00 
~0.1048759E+01 
0.9714917E+00 
-0.5091460E+00 
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Table 5. Constants for Pe = 1, 5 
Peas" 4| 
| 1 
: RC) | Ry (242 2,'(1) 
1 -0.1542929E+01 0.6332777E+00 -0.9718497E+00 
2 0.4680637Et01 -0,22053058+00 0.9853798R+00 
3 ~0.7822316E+01 0.1307080E+00 -0.9901758E+00 
4 0.1096401EB+02 -0.9271975E=01 0.9926067E+00 
5 -0.7410566E+02 06.7181920E-01 -0.9940740E+00 
6 0.1724730E+02 -0.5860316E-01 0.9950554E+00 
7 -0.2038893E+02 0.4949364E-01 -0.9957577E+00 
8 0.2353055E+02 -0.4283458E~01 0.9962848E+00 
9 -0.2667217E+02 0.3775464E-01 -0.9966944E+00 
10 0.2981376E+02 -0.3375170E-01 0.9970210E+00 
11 -0.3295533E+02 0.3051613E-01 -0.9972865E+00 
12 0.3609685E+02 -0.2784653E-01 0.9975048E+00 
13 -0.3923827E+02 0.2560637E-01 -0.9976855E+#00 
14 0.4237954E402 -0.2369965E-01 0.9978345E+00 
15 -0.4552058E+02 0.2205714E-01 -0.9979558E+00 
16 0.4866127E+02 ~0.2062729E~01 0.9980515E+00 
17 -0.5180146E+02 0.1937144E-01 -0.9981224R+00 
18 O0.5494094E+02 -0.1825934E-01 0.9981680E+00 
19 -0.5807947E+02 0.1726787E-01 -0.9981870E+00 
20 0.6121670E#02 -0. 1637793E-01 0.9981769E+00 
Pe = 5 1 
' ' 
n Ro (1) | By (2)e2 z*(1) 
1 -0.1479343E+01 0.6255824E+00 -0.8870738E+00 
2 0.4550386E+01 ~0.2471675E+00 0.9325373E+00 
3 -0.7689307E+01 0.1437979E+00 -0.9532163E+00 
G 0.1083221F+02 -0.9984576E-01 0.9643213E+00 
5 -0.1397501E+02 0.7620965E-01 =0.9711887E+00 
6 0.1711752E+02 -0.6155989E-01 0.9758450E+00 
7 =0.2025980E+02 0.5161474E-01 -0.9792074E+00 
8 0.2340192F+02 -0.4442847E-01 0.9817483E+00 
9 -0.2654393E402 0.3899535F-01 -0.9837352E+00 
10 0.2968585E+02 -0.3474455F-01 0.9853305E+00 
11 =-0.3282768E+02 0.3132847E-01 =0.9866385E+00 
12 0.3596941E+02 -0. 2852338E-01 0.9877287E+00 
13 ~-0.3911102F#02 0.2617897E-01 ~0.9886493E+00 
14 0.4225245E+02 -0.2419033E-01 0.9894341E+00 
15 =0.4539363E+02 0.2248227E=01 =0.9901077E+00 
16 0.4853444E402 -0.2099917E~01 0.9906876E+00 
17 -O0.5167474E+02 0.1969948F-01 -0.9911865E+00 
18 0.5481432E+02 -0.1855084E~01 0.9916132E+00 
19 ©0.5795293E#02 0.1752861E-01 -0.9919736E+00 
20 0.6109024F+02 ~0.1661252E-01 0.9922713E#00 
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0.1003655E+01 
0.2487996F 01 
~0. 265993 vE=02 
0.8573 151E=-03 
~0.3650107E-03 
0.1880612E" 03 
“0.1093 154E-03 
0.6906848E-04 
-0.4638502E-04 
0.3264904E-04 
-0.2383416E- 04 
0.1794583E~04 
“0.1382625E-04 
0.1091487E-04 
-0.8722032E-05 
0.7 149447E-05 
“0.585064 8E~05 
0.4968200E-05 
-0.4113237E-05 
0.3635954 E05 


0.1097040E+01 
0.135533 7E+00 
“0.103054 1E-01 
GO. 253779 VE“02 
-G@.. USS T9E-OZ 
0.8364927E-03 
~0.495546 3E-03 
0.31748060E-03 
-0.2153866E-03 
0.1528110E-03 
~0.1123004E- 03 
0.8495129E-04 
~0.6578752E"04 
0.5201762E~-04 
~0.4179376E-04 
0.3415154E- 04 
~0.2818365E"04 
0.2364698E~04 
~0.1989602E"04 
0.1708833E-04 
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Table 6. Constants for Pe = 10, 50 
1 
i] i] 

R,'(1) | R,(2)¢2 z°(1) 
-0.1450941F#01 0.6221126E+00 -0.8234686E+00 
0.4399766E#01 -0.2694375E+00 0.8777721E+00 
-0.7516604E#01 0.1586751E+00 -0.9118169E+00 
0. 1065870E+02 -0.1086674E+00 0.9316426E+00 
~0.1380338E+02 0.8178058E-01 -0.9443031E+00 
0.1694780E+02 -0.6533740E~01 0.9530353E+00 
-0.2009168E+02 0.5432789E-01 -0.9594095E+00 
0.2323511E+02 -0.4646587E-01 0.9642633E+00 
~0.2637818E+02 0.4057929E-01 -0.9680807E+00 
0.2952097E#02 -0.3601030E-01 0.9711605E+00 
-0.3266353E+02 0.3236270E-01 -0.9736962E+00 
0.3580589E+#02 -0.2938405E-01 0.9758186E+00 
-0.3894B803Et02 0.2690626E-01 -0.9776190E+00 
0.4208992E#02 -0.2481292E-01 0.9791628E+00 
-0.4523149E#02 0.2302122E-01 -0.9804977E+00 
0.4837266E+02 -0.2147024E-01 0.9816599E+00 
-0.5151327E+02 0.2011470E-01 -0.9826729E+00 
0.5465314E+#02 -0.1891957E-01 0.9835593E+00 
-0.5779200E+02 0.1785823E-01 -0.9843324E+00 
0.6092954E+02 -0.1690892E-01 0.9850026E+00 

= 50 
i] i] 

R'(1) | R,(2)¢2 z,'(1) 
-0.1430361E+01 0.6195853E+00 -0.7255992E+00 
0. 3921668E+01 -0.3136271E+00 0.6941612E+00 
~0.6526332E#01 0.2180790F+00 -0.7173347E+00 
0.9381547E+#01 -0.1606071E+00 0.7513932E+00 
~0.1240030E#02 0.1219932E+00 -0.7827980E+00 
0.1549773E+02 -0.9553246F-01 0.8088148E+00 
~0.1862880E+02 0.7710212E-01 -0.8298795E+00 
0.2177358E+02 -0.6394882E~01 0.8470042E+00 
-0.2492367E+02 0.5428896E-01 -0.8610975E+ 00 
0.2807555E#02 -0.4698805E-01 0.8728580E+00 
=0.3122766F+02 0.4132185E-01 -0.8828024E+00 
0.3437935E+02 -0.3681980F-01 0.8913119E+00 
-0.3753032E+02 0.3316898E-01 -0.8986704E+00 
0.4068045E+02 -0.3015562E-01 0.9050922E+00 
~0.4382964E+02 0.2763031E-01 ~0.9107411E+00 
0.4697782E+02 -0.2548559E-01 0.9157441E+00 
-0.5012490E+02 0.2364317E-01 -0.9202006E+00 
0.5327072E+02 -0.2204401F-01 0.9241892E+00 
-0.5641508E+02 0.2064386E-01 -0.9277723E+00 
0.5955770E+02 -0.1940767E-01 0.9309997E+00 
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0.1454703E+01 
0.2782054E+00 
0.5467240E~02 
=0.7086805E-02 
~0.2605437E-02 
0.1437739E=02 
-0.8741264E-03 
05570185 1E-03 
=O. 3921973E=03 
0.2811812E-903 
-0.2083805E-03 
0.1587004E-03 
=0. 1236121E=-063 
0.9818372E-04 
-0.7923377E- 04 
0.6492889E-04 
-0.537907 0E- 04 
0.4517595E-04 
-0.3817156E~04 
0.3272955E~04 


0.8922377E+02 
0.1145080E+02 
0.1063733F+01 
0.2469817E+00 
0.4233084E-01 
0.5624168E~-02 
=Oeiehiosone Oe 
0.1147005E-02 
~0.8870667E-03 
0.6988601E~03 
“0.5576 744 E~03 
0.4508095E~-03 
=O, 36887 30E=-03 
0.305274 1E-03 
PU Seo 2ee VE Os 
0.215444 8E-03 
=Oo oe as000E=03 
0.157383 0E~03 
SOs Asoto0 unm OS 
0.1183396E~03 
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-6.0000 
“4.0000 
-~2.0000 
-1.0000 
-0.1000 
-0.0500 
-0.0100 
-0.0050 
-0.0010 
0.0001 
0.0002 
0.0004 
0.0006 
0.0008 
0.0010 
0.0020 
0.0040 
0.0060 
0.0080 
0.0100 
0.0200 
0.0400 
0.0600 
0.0800 
0.1000 
0.2000 
0.4000 
0.6000 
0.8000 
1.0000 
2.0000 
4.0000 
6.0000 
8.0000 
10.0000 


Pe 


Table 7 Bulk Mean Temperatures 
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Pe 
X 


0.0001 
0.0002 
0.0004 
0.0006 
0.0008 
0.0010 
0.0020 
0.0040 
0.0060 
0.0080 
0.0100 
0.0200 
0.0400 
0.0600 
0.0800 
0.1000 
0.2000 
0.4000 
0.6000 
0.8000 
1.0000 
2.0000 
4.0000 


Pe 


0.0001 
0.0002 
0.0004 
0.0006 
0.0008 
0.0010 
0.0020 
0.0040 
0.0060 
0.0080 
0.0100 
0.0200 
0.0400 
0.0600 
0.0800 
0.1000 
0.2000 
0.4000 
0.6000 
0.8000 
1.0000 
2.0000 
4.0000 


Table 8 Nusselt Numbers 


31.141 
Bact it 
31.049 
30.988 
30.927 
30.866 
30.565 
29.978 
29.409 
28.858 
28.323 
25.889 
22.001 
19.095 
16.884 
15.175 
10.554 
7.497 
6.306 
5.657 
5.248 
4.413 
4.081 


39. 166 
38.800 
38.084 
37.390 
36.717 
36.065 
33.083 
28.294 
24.688 
21.928 
19.781 
13.919 
9.992 
8.437 
7.567 
7.001 
5.697 
4.876 
4.537 
4,341 
4,218 
4.021 
4.000 


10 


79.130 
75.818 
69.834 
64.601 
60.010 
55.969 
41.683 
28.177 
22.142 
18.775 
16.613 
11.790 
8.867 
7.689 
7.016 
6.567 
5.506 
4.824 
4.506 
4.306 
4.182 
4.012 
4.000 


50 


Nu, 
16.664 
16.578 
16.407 
16.239 
16.074 
1D2 351 
15.140 
13,7429 
12.625 
11.643 
10.803 
8.035 
5.734 
4.803 
4.309 
4.005 
3.427 
35023 
3.448 
3.589 
3.705 
3.950 
Beun9 


1041.693 
983.580 
879.791 
790.343 
712.957 
645.749 
415.936 
213.529 
131.038 


fo He Fe es IS 
64.669 
21.396 
6.253 
2.966 
1.776 
1.261 
1.246 
2.601 
3.299 
3.630 
3.798 
3.988 
4.000 
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Fig. 4 Odd Eigenfunctions Zh for Pe = 1. 
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Fig. 5 Odd Eigenfunctions fe for Pe = 1. 
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Fig. 6 Developing temperature profiles for Pe = 1. 
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Fig. 7 Developing temperature profiles for Pe = 5. 
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Fig. 8 Developing temperature profiles for Pe = 10. 
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Fig. 9 Developing temperature profiles for Pe = 50. 
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CHAPTER ITI 


AXIAL HEAT CONDUCTION EFFECTS ON THERMAL 
INSTABILITY OF HORIZONTAL PLANE POISEUILLE 
FLOWS HEATED FROM BELOW 


A linear stability analysis is used to study the 
effect of axial heat conduction on the onset of instability 
for longitudinal and transverse vortex disturbances for 
plane Poiseuille flow in the thermal entrance region of a 
horizontal parallel-plate channel heated from below with 
a constant temperature difference between two plates. The 
basic flow solution for temperature (Graetz problem) 
incorporates axial heat conduction effect and the fluid 
temperature is taken to be uniform at far upstream location 
x = -~ to allow for the upstream heat penetration through 
thermal entrance x = 0. Numerical results for critical 
Rayleigh numbers are obtained for entrance temperature para- 
meter 89 = 1 and Peclet numbers 1, 5,M10, 50. It is Found 
that the transverse vortex disturbances are preferred over 
the longitudinal vortex disturbances for Pe < 1 and Pr > 1] 
(low Re) in the developing regions upstream and downstream 
of the thermal entrance. For other conditions, the longi- 
tudinal rolls have priority of occurrence. The Prandtl 
number effect on the onset of the longitudinal vortices is 


clarified. 
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Nomenclature 


coefficients of infinite series in 


eqs. (5) and (6) 
wave numbers in x and y directions and 
2 (a gra 
(a, + a5) 
amplification or damping factor, c = 0 
at onset of instability 
d/dz 
3c 
Grashof number, gB(AT)L~/v 
gravitational acceleration 
height of channel and L/2 


fluid pressure (P. + P') and basic flow 


pressure 

Peclet number, 4 U w/a = RePr 
Prandtl number, v/a 

dimensionless perturbation pressure, 
P'/(pv"/L*) 

Rayleigh number, PrGr 

Reynolds number, 4 Urs 


fluid temperature (T, #6'), basic fliow 
temperature, (T, + T,)/2 and uniform up- 


stream temperature 
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T,>T, = constant lower and upper plate temperatures 


UU su, = axial and mean velocities and (U,/U.) 


of basic flow 
Unie = disturbance velocity components 


U,V,W = dimensionless perturbation velocity 


components (U',V',W')/v/L) 


eerles 2 = Cartesian coordinates with origin at 


lower plate 


Kars Le = coordinates with origin at center of 
channel 

XsVoZ pai XN 2b 

ues Zia Sek 8703/8 ie Rene 247.2) 

ye. = transformed coordinates, (x/(3Pe/16) ,z) 

Vea sin son = eigenfunctions 

a = thermal diffusivity 

Gs Pare na Yn = eigenvalues 

B = coefficient of thermal expansion 

6 = dimensionless disturbance temperature, 
Gaay fh 

81 296 = dimensionless temperature and uniform 


entrance temperature, (T, - T.)/(T, - Te) 
and (Ty - Ta)/(T - Ty) 


Vv = kinematic viscosity 
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te) = density 

42% = ab ELEY ON ede basic velocity and tempera- 
ture profiles, (1/2)u, = 3(z - 7°), 
(1 = 6,)/2 

AT | = (T, - Ts) 

Superscripts and Subscripts 


perturbation quantity 
o = amplitude of disturbance quantity 


- = transformed perturbation variable or 


critical value 
b = basic flow quantity in unperturbed state 


iis = upstream and downstream regions 
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3.1 Introduction 

Thermal instability of a plane Poiseuille flow con- 
cerned with the onset of a secondary flow in the form of 
longitudinal vortex rolls in the thermal entrance region 
of horizontal parallel-plate channels heated from below 
Was studied theoretically by Hwang and Cheng [1] consider- 
ing the axial heat conduction term in the energy equation 
for basic flow. Recent studies by Hennecke [2] and Hsu 
[3] on Graetz problem with axial heat conduction effects 
show clearly that the usual thermal condition of uniform 
entrance fluid temperature at X = 0 used in the classical 
Graetz problem is unrealistic for low Peclet number flow 
regime (Pe < 50) because of the upstream heat penetration 
through thermal entrance X = 0 and the fluid temperature 
must be taken to be uniform far upstream at X = -~, In view 
of the predominance of the axial heat pen duetien effects 
near the thermal entrance X = 0 for very low Peclet number 
flows, the instability analysis [1] based on uniform entrance 
temperature at X = 0 for basic flow solution must be regarded 
as an approximate one when Peclet number is very small. 

A deductive analysis of the Graetz problem by Ostrach 
[4] clarifies the importance of the axial heat conduction 
term in the energy equation. However, for very low Peclet 
number flow regime, the problem is of elliptic type and the 
concept of the thermal boundary layer is not applicable. 
Consequently, the thermal boundary-layer thickness cannot 


be used as a characteristic length in normalizing the equa- 
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tion. An explicit criterion for the neglect of viscous 
dissipation is also clearly given in [4]. When the 

Reynolds number is very small, a question on the priority 
of the occurrence of transverse rolls [5,6,7] over longi- 
tudinal rolls arises. Recentiy, Kamotani and Ostrach [8] 
determined experimentally the critical Rayleigh numbers for 
thermally-developing laminar channel flow and compared the 
experimental results with the results from linear Stapiiity 
theory [1]. A difference as large as an order of magnitude 
between the two results is observed but apparently this is 
somewhat eaniiar to the discrepancy between the experimental 
[9] and theoretical [10-13] results for longitudinal vortex 
instability of natural convection flow on inclined surfaces. 
The difference can be attributed to the infinitesimal dis- 
turbances in theory and the measurable disturbances in 
experiment. 

The purpose of this investigation is to study the 
effects of axial heat conduction on thermal instability of 
a plane Poiseuille flow between two horizontal flat plates 
Where the lower plate is maintained at a higher constant 
temperature T, (X > 0) and the upper plate at T, which is 
identical with the uniform entrance fluid temperature To at 
far upstream (X = -~), The mathematical formulation for 
the basic flow in the thermal entrance region of the 
parallel-plate channel heated from below is similar to 
that used by Hennecke [2] and Hsu [3] which is considered 


to be the most rigorous analysis of the Graetz problem. 
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The onset of convective instability for both longitudinal 
and transverse vortex rolls in the low Peclet number flow 


regime is studied by using linear stability theory. 


3.2 Temperature Solutions for Basic Flow 
Neglecting the viscous dissipation effects, the govern- 
ing equations in dimensionless form for the thermal entrance 


region problem (see Fig. 1) with axial heat conduction 


are [3] 
2 2 
5 Uy et pnb (35 )" & (1) 
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and up = (le? )(iee 714) for a plane Poiseuille flow. 
Following the procedures outlined in [3,14], the 

temperature solutions On and Bho in the adiabatic and 

heated regions, respectively, satisfying the conditions 


at x' = + can be written as 


64 (x'sz') orca oy BAY ,(z')exp(asx') 


where ais €, and ee ay are the even and odd eigenvalues 
and eigenfunctions, respectively, for the adiabatic region. 


SIM raver ys) pes on and Ry? Z. are the even and odd eigen- 


n n 


values and eigenfunctions, respectively, for the heated 
region. The details of the solution method and the computed 
eigenvalues and eigenfunctions as well as the series expan- 
sion coefficients for the case 86 = 1 are given in Chapter 
II. A fourth-order Runge-Kutta method [15] using two hundred 
equal steps is employed to obtain the eigenvalues and eigen- 


functions from the numerical solution of the characteristic 
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equations and their boundary conditions. The series co- 
efficients are calculated by matching both the temperatures 
and the axial temperature gradients at x = 0 after construct- 
ing orthonormal functions from the nonorthogonal eigen- 
functions [3]. In this study, the infinite series are 
truncated atyn  S@l2 cand 8 for Pe = “hk, 5 and jPe = 10, 50, 

o, respectively. For the instability problem, it is more 
convenient to shift the coordinate origin to the lower plate 
as shown in Fig. 1. The basic temperature profile now 


becomes 5 ad 6) lena 6/2). 


333 "Perturbation Equations 

The derivation of the perturbation equations is based 
on the method of small disturbances (a linearization about 
the basic flow) using the Boussinesq approximation. Introduc- 
ing the sum of the basic flow and the disturbance flow as 
U = U, (Z) sy UN eh a til Dee ue, pt” pe A Th + Oy ands P = En th Peay 
subtracting out the basic flow equations from the conserva- 
tion equations for mass, momentum and energy, one obtains 
the following disturbance equations after neglecting non- 


linear terms. 
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where ve = 927 ax2 + 92 /aye + 9% 797% and the disturbances 


are taken to be independent of time [1,8,10]. 

After introducing the dimensionless variables, 
(Va Een AS.) Ee Smeeve wc =r Uy No Cee) 
p = PY Foy? / i}. 6 = 6'/(AT) and the parameter 


Gr = gB(AT)L?/v, the disturbance equations become 
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where oy 7 Bez7¢1Peezy, 507 an - T,)/AT = (1 - 6/2 and 
the operator is understood to be ve = 3¢ fax? + ae fay” + 

ao faze. The dependent variables u, v and p can be elimin- 
ated from the continuity and three momentum equations and 


One obtains a single equation as 


2 


do 
p) 2 ulew (a.222 2 
SO ere SRE Meay Ss? ev ae Ge us be Gal (173 
where vs - 3* fax? + Spot and ve = vs + 9¢/az°. 


A separable solution for w and 6 may be sought in the 


following form [1]. 
f(x,y.z) = f(z) exp [cx + i(a,x + apy)] (18) 


where c is the amplification factor and the wave numbers a 
and a, are real. Confining attention to neutral stability, 
one has c = 0. After substituting equation (18) for the 

disturbances w and 6, respectively, into equations (17) and 


(16), one obtains 
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ficdeentahiccalt. ia,Pe¢ 0” Spy [ug /ax + W'9$0/2z] (20) 


where a? = at + a and D = d/dz. The above two disturbance 


equations involve three unknowns and u remains to be speci- 
fied. The following two cases [6] are of interest in this 
study: 

1. For longitudinal rolls (a, = 0), the x-momentum 


equation (13) gives 
un = Re(do,/dz)w" (21) 


It is noted that at neutral stability the x-dependence for 
the disturbance quantities can be neglected and one has 
op/ox = 0. 

2. For transverse rolls (a, = Gyemthe continuity 


equation (12) gives [6] 
uv = i Dw*/a, (22) 


At this point, it is more convenient to introduce the 
transformations, x = (3Pe/16)x, z = Z, i =y Re u*, wes we, 
are = Proe*, u* = Re u*, Ra = GrPr and one obtains: 
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2. Transverse rolls 


(p2 : aS) ews - ia, Red (D2 - a’ )w* + ja Re(d@4 /dz) 2w* 
u ] ] u 
} ced 
= Ra a6 (26) 
Ux = (i/a, Re) Dw* (27) 
(D2 . at )ox - ia,Peq, 0* = (16/3Pr)u*9o,/ax + W*Ob,/3z (28) 


The boundary conditions at the rigid and highly conductive 


walls applicable to the above two types of disturbances are 


w* = Dw* = u* = 6* = Q at z°= 0 and 1 (29) 


In this study, the oblique modes (a, #0, a5 # 0) are 
not considered [6] since the above two modes are observed 
experimentally. For transverse rolls, the disturbance u* 
may be eliminated by substituting equation (27) into equa- 


tion (28) and only the real part of the disturbance equations 
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is considered to have physical significance. It is seen 
that equation (26) is the Orr-Sommerfeld type equation and 


is coupled with the energy equation (28). 


3.4 Method of Solution 
Considering the expressions for the basic temperature 
it is obvious that an analytical 


profiles 6 and 6 


b] bi2* 
solution of the present characteristic value problem is 
not practical. An iterative technique using the higher 
order finite-difference scheme [16] is used for the simultan- 
eous solution of the coupled disturbance equations [1]. The 
details of the numerical solution method are in Appendix I 
and only an outline of the iterative procedure is presented 
here. Given the basic profiles oF and bo for the specified 
values of Pe and Oo the iterative procedure for the case 
of the longitudinal rolls consists of the following main 
steps: 

1. At a given axial position x, a value of the wave 
number hs 2.5 (say) is selected and an eigenvalue Ra is 
assumed. The disturbance velocity w* is taken in the form 


k 


of we cee ( oe k/M) i akeoec a, ..e 5M anda THOSTiS US edain 


this study. 
2. The finite-difference solution of equation (24) 
7 * 
gives uf. 
3. After knowing wk and us, the energy equation (25) 
can be solved to obtain Ok. 


4. New values for we can be found from the finite- 
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difference solution of equation (23). 


5. An improved eigenvalue (Ra) can be computed 


new 
by using the following equation [17]. 


(Ra) new = (RA) gy gl) Cw oe ee, (wee al? (30) 


The magnitude of We is readjusted by the following equation 
in order to return to the original order of magnitude for 


computation. 


6. The steps (2) to (4) are repeated until the 


following preassigned convergence criterion is satisfied. 
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7. The minimum Rayleigh number is then searched. It 
is found that only 3 to 5 iterations are required to satisfy 
the above criterion and five significant figures are correct 
Toke cKicical Ra. 

The numerical method of solution for the case of 
transverse rolls is generally similar to that discussed 


above with the following differences: 
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1. The disturbance quantities w*, u* and 6* are 
now complex. 

2. The initial values for we are taken as we = 
2(1 - k/M) + 2i(1 - k/M), k = Ley 3, Cue Mi 

3. A new and improved eigenvalue can be calculated 


by using the following equation [18]. 


(Ra), oy : (Ra) op aE) 1 aCWE) gpg] /EE CE) new (ME) new) 7 


where (we) is the conjugate of the complex disturbance (wi). 


4. The convergence criterion based on equation (32) 
Ud eee T°. Thesnumben of iterations required to satisfy 
the above condition ranges from 20 to 25 and four signifi- 
cant figures are found to be correct for critical Ra at the 


Onset of transverse rolls. 


3.5 Results and Discussion 

The critical Rayleigh numbers at the onset of second- 
ary motion are of primary interest in this study. The 
graphical results are presented in (eee cased nae che 
numerical results are summarized in Tables 1 to 5 for the 
case 6) = 1. The effects of Prandtl number on the onset of 
longitudinal vortex rolls in both the upstream and down- 
stream regions are shown in Fig. 2 to 5 for Pe = hee Ee) 
and 50, respectively. 


For 89 = | and Pe = 1, the instability results for 
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Pra= OOF Tyraloy | 100Mand Sarre practically identical and 
the critical Rayleigh number decreases monotonically from 
the asymptotic value of Ra* = ~ at x =~ -6 to Ra* = 1708 at 
xX = 3.0 for a linear basic temperature profile. The 
independence of the critical Rayleigh number Ra* on Prandtl 
number for Pr > 0.7 in the case of Pe = 1 can be explained 
from perturbation equation (25). It is found that when 

Pe = 1, the relative magnitude of the ratio R = (86,/9x)/ 
(9¢,/z) is less than 107° and consequently the forcing 
term (16/3Pr) (3¢,/2x)u* on the right-hand side of equation 
(18) can be neglected in comparison with the term (3¢,/3z)w* 
for the range Pr = 0.7 ~~. Thus, the coupled effect of the 
vertical basic temperature gradient 3b,/9z and the vertical 
velocity disturbance w* dominates. On the other hand, when 


Pe = 5 and 10, the ratio R is found to be less than 107¢ 


ha respectively. It is thus seen that the instabi- 


and 10° 
lity result is independent of Prandtl number when Pr > 10 
for Pe = 5 and Pr > 100 for Pe = 10. The above argument 
assumes that the axial and vertical basic temperature 
gradients, 9>4/9X and 964/92 are of the same order of magni- 
tude which is verified by the numerical results of Chapter 
II. From the foregoing discussion, it is also clear that 
the role of Prandtl number becomes increasingly important 

as the Prandtl number decreases for a given Peclet number. 
When Pr is small, the term (16/3Pr)u*d¢,/dx also destabi- 


lizes the flow. As is seen from Fig. 2 to 4, a local minimum 


for Ra* exists when Prandtl number is small. This means 
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that when Prandtl number is small, the region near the 
thermal entrance x = 0 is more unstable than the fully 
developed region and the practical implications are 
believed to be important for liquid metals. Noting that 
the basic temperature profile b6 is a function of Peclet 
number only, one sees that the effect of Prandtl number 
appears through the disturbance equation (25) only. 

The instability results for Pe = 50 are shown in Fig. 
where the unpublished results of the earlier analysis [1] 
based on the assumption that the fluid temperature is uni- 
orfi at the thermal entrance x = 0 are also plotted for com- 
parison. One should note that the simplified model [1] pre- 
dicts Ra* = © at x = 0 whereas the present model predicts a 
finiteavalueeforeRa* at xve= One (Ate Pel= 50,«the concept of 
thermal boundary layer is applicable (Chapter II) and the 
lower Ra* at a given x from [1] for a given Pr can be attri- 
buted to the larger unstable thermal boundary layer thick- 
ness caused by the somewhat artificial absence of the up- 
stream heat penetration through x = 0. The effect of the 
axial heat conduction is seen to decrease the thermal bound- 
ary layer thickness and the axial temperature gradient 
9¢,/3x. One should note that at Pe = 50, the lower limit 
for Pr exists because of the critical Reynolds number 
Re = 14,170. At Pr = 0.1, the entrance region is seen to 
be more unstable than the fully developed region. 

In order to critically examine the effect of upstream 


heat) conduction on critical Ra*, the instability results 
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for Pr = 0.7, 10, 100 and Pe = 5 are compared against the 
unpublished results of the earlier study [1] neglecting 

the upstream heat penetration through x = 0 in Fig. 6. 

At Pe = 5, the earlier model is apparently inadequate in 
predicting Ra*. It is noted that the trend of the Prandtl 
number effect on Ra* between the present and earlier 
analyses for Pe = 50 (see Fig. 5) and Pe = 5 is just oppo- 
Site. This is caused by the fact that at Pe = 50, the 
problem is basically parabolic and the concept of thermal 
boundary layer is applicable whereas at Pe = 5, the problem 
is elliptic and the heat from the lower plate already pene- 
trates to the upper plate at x = 0. It is then clear that 
the larger unstable fluid layer near x = 0 from the present 
physical model leads to the considerably lower Ra*. 

The effect of Peclet number on Ra* for Pr = 0.7 (air) 
is shown in Fig. 7. The Peclet number effect on Ra* in the 
upstream region is seen to be opposite to that in the down- 
Stream region. The lower Ra* for Pe = 1 in the adiabatic 
region is due to the larger unstable fluid layer caused by 
the axial heat conduction. The developing temperature pro- 
files shown in Chapter II clearly confirm the above state- 
ment. The instability results for Pr = 10 (water) are also 
shown in Fig. 8. The thermal entrance length for Pe = ] 
is longer than those of Pe = 5, 10, 50 and correspondingly 
the asymptotic value Ra* = 1708 for a fully developed basic 
flow with a linear temperature profile is approached at a 


farther downstream location. 
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The case of transverse rolls is of special interest 
in this study and the numerical results for Pe = 1 and 
Pease lsaiOGeare |istedeinajanle.5s.. bhe graphical results 
are presented in Fig. 9 where the instability results for 
the case of longitudinal vortex rolls are also plotted for 
comparison. It is seen that the onset of the transverse 
rolls has priority over that of the longitudinal rolls in 
the upstream region as well as part of the downstream 
region (x ¢ 1.2). Note that the case of Pr = 100 is more 
unstable than that of Pr = 1 for transverse rolls but the 
opposite is true for longitudinal rolls. It is also found 
that for Pe = 1, Pr < 0.1 the transverse rolls have no 
priority over the longitudinal rolls. Similarly, numerical 
results reveal that Ra* for transverse rolls is higher than 
that for longitudinal rolls at x = 0 for Pe > 5. It is 
thus concluded that the onset of the transverse rolls has 
priority over that of the longitudinal rolls only when 


Pe ¢ 1 and Pr > 1 (or small Re) and it occurs in the upstream 


and downstream regions near the thermal entrance x = 0. 

For fully developed region, the longitudinal rolls appear 

to have priority but the difference in Ra* is so small that 

the transverse rolls may occur under certain conditions. 
For a given Pe, as Pr +: one obtains Re +0. The 


perturbation equations for transverse rolls in the fully 


developed region then become: 


w* = a‘ Rao (34) 
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o* - ia,Ped o* = W*9d,/ 92 (35) 


where 9, /9z = -1. “The calculation for Pe = 1 gives Ra* 
1717.06 and ay = Selle ine Tact ilatenart 1S laygeretinan 
the value of 1708 for longitudinal rolls suggests that the 
term involving Pe in equation (35) may have a stabilizing 
er vects 

The physical reasons for the priority of the "“trans- 
verse-vortex disturbances" over the "longitudinal vortex 
disturbances" under the conditions stated earlier are not 
immediately clear from the study of the disturbance equa- 
tions and a consideration of the energy exchange between 
the main flow and the perturbation. However, it appears 
that when Re is large the transverse rolls tend to be washed 
out. In addition, one notes that the developing basic 
temperature profiles show negative axial temperature grad- 
pentanear Upper plate.i 2 =2ULb6 = lsU)@ tor x > <0. i at 
Pe = 1 (Chapter II). At Pe = 5, the region of negative 
axial temperature gradient is rather small and negligible 
(Chapter II). It appears that the horizontal density 
gradients also play some role for the onset of transverse 
Corse 

The streamline pattern of the transverse-roll type 
disturbances in a longitudinal cross section is of particular 
interest and the secondary flow field configuration at the 
ONSGUT OT sinsbaDliltyaisusnowm in Fig. [U TOY the Tully deve- 
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ay = 3.117. The stream function is defined by u = -av/az 
and w = dW/3x. From the normal modes of disturbances, one 
has w = w'(z)el 41% and w = vw (z)'*1%, Noting that w = w*, 


one obtains wp = (w*/ia,)e'*1* where only the real part is 
considered to have physical meaning. The contour lines are 


based on |w = 1 and the dimensionless wavelength 


fiax! 
A = em/a, = 2.0156. The streamline pattern is quite similar 
to that of the longitudinal rolls and the eyes of the vor- 


tices are seen to be located at the center of the channel. 


3.6 Concluding Remarks 

1. The effects of axial heat conduction on the thermal 
instability of horizontal plane Poiseuille flow heated from 
below are studied for both longitudinal and transverse vor- 
tex disturbances. It is found that the transverse rolls 
with axes normal to the main flow are the preferred mode of 
disturbances for very low Peclet number regime (say Pe < 1) 
with Pr > 1 (or low Re) in the developing regions upstream 
and downstream of the thermal entrance. For other condi- 
tions, the longitudinal rolls with axes parallel to the 
basic velocity are the preferred mode of disturbances. The 
observed Peclet number effect on disturbance modes is con- 
sistent with experimental results for combined free and 
forced convection in porous media [19]. 

2. For given entrance temperature parameter 86 and 
Peclet number, the instability mechanism relating to the 


Prandtl number effect on the onset of longitudinal vortex 


gna casonaauten 79 anton: Seatod ony sol ies = w ie 


% sia my go = § bas’ iligna! ¥* ane > 


sory? 


db 


B16 pene Sabldeh igi! ‘gutiens pone pit ot peer a 
( i¢pnafevew 2esinotenamth on} bas f = basket | no beesd a 
catimte sdtop 2b overieg snbfimesyd2 oaT 2200.8 =: ps\nSjeik 
-yov ents to 2eye ait bus af fox fsotbus tenol sft to jedt of . 
fonasdo oft to wstnao odd 56 betsool ad OF neee 916 esots 


241 BgA pntbulonod (8,€ 
femvans odd mo notsoubnos dsod feixs to atosttes ofT .f 154 
mont mere" wort giitusetod snsiq Istnostion to yotitdsteat 
~Yov geravensyys sa fentbuttpnol atod vot betbuse 91s wolgd | 
“ ett seyovensd edd todd bavot 2t F1 .2eonsdsusetb xed 
to obom. bsyistayg sity 9%5 wor? afem ods od femvon 29x68 dgiw 
(f > 99 NBe) smiesy vedmun tefosd wolf yvev vot 2sonsdvus2etd 
msaviequ enoipey aniqoheveb oft ni (of wol vo) Ios 14 Att 
-tbnoo tonto 107 .sonayine Toned oii to msotsenwob bas 
ahs ot (effevsq zaxs dttiw effou [sntbustpne! odd ~enots 
oa seated to sbolt berretand ans 916 us taofow teed . 
-n00. 2% esbom sonsdvuderb no soetts v9sdmUN tefoa4 bevis2do a 
bie eant pie. 10% haga Isdagmiiagxs. sty anagete a 
| 1 be tenes i an 2yOtOg nt mots2evn0s_ - ot 
Mangan #0 Eros aoc a a 


70 


rolls in the thermal entrance region is clarified by study- 
ing the relative order of magnitude of the forcing terms 
involving axial and transverse basic temperature gradients 
in the energy disturbance equation (25). 

3. For low Peclet number regime (say Pe < 50), the 
assumption of uniform entrance fluid temperature at the 
thermal entrance x = 0 for basic temperature solution is 
not valid because of upstream heat penetration through 
xX = 0 into the upstream adiabatic region. At Pe = 5 and 
89 = 1, the predictions of critical Rayleigh number for 
longitudinal vortex rolls show considerable discrepancy 
between the two models with and without upstream heat pene- 
tration. The discrepancy increases with the decrease of 
Peclet number. 

4. The present instability results can be used in 
predicting the onset of free convection effect on laminar 
heat transfer in horizontal wide rectangular channels [8]. 
For Ra > Ra*, one has finite amplitude thermal convection 
problem and the classical Graetz formulation for thermal 
entrance region problem in a parallel-plate channel is not 
applicable. It should also be noted that the existence of 
stationary longitudinal vortex roll is confirmed in experi- 
ment [8]. However, the case of transverse vortex rolls 
remains to be confirmed by experiment. 

5. The numerical experiments using 20 eigenvalues 
are also carried out to confirm the accuracy of the present 


numerical results. For x > 0.1, the accuracy of Ra* is 
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within one percent for Pe = 1, 5, 10, 50 and at x = iy 


the error of Ra* is about one percent for Pe - 1, 5 and 
two percent for Pe = 10. The convergence of the numerical 
Solution is thus confirmed. 

6. Physically, as a low velocity main flow is imposed 
on Benard cells the "transverse-vortex disturbances" appear 
first. With further increase of steady main flow velocity, 
the "longitudinal vortex disturbances" appear. The effect 
of superposed steady flow on unstable fluid layers described 
in [5,20] is consistent with the present theoretical results. 

7. The viscous dissipation effects are neglected 
Within the scope of present work but should be studied in 
future. Apparently, the thermal radiation effect and other 
thermal boundary conditions such as convective boundary 


condition are also of practical interest. 
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CHAPTER IV 


MAXIMUM DENSITY EFFECTS ON CONVECTIVE 
INSTABILITY OF HORIZONTAL PLANE POISEUILLE 
FLOWS IN THE THERMAL ENTRANCE REGION 


A linear stability analysis is used to study the 
conditions marking the onset of secondary flow in the form 
of longitudinal vortices for plane Poiseuille flow of water 
in the thermal entrance region of a horizontal parallel- 
plate channel by a numerical method. The water temperature 
range under consideration is 0 ~ 30°C and the maximum den- 
sity effect at 4°C is of primary interest. The basic flow 
solution for temperature includes axial heat conduction 
effect and the entrance temperature is taken to be uniform 
at far upstream location x = -» to allow for the upstream 
heat penetration through thermal entrance x = 0. Numerical 
results for critical Rayleigh number are obtained for 
Peclet numbers 1, 10, 50 and thermal condition parameters 
(A,; hy) in the range of -2.0 < Ay £ 70.5 and -1.0 < Ay < 
1.4. The analysis is motivated by a desire to determine 
the free convection effect on freezing or thawing in channel 


flow of water. 


1 


5 


avIT93 1 
s1)1uaet09 a aa 
word as sons a JAMS BHT yin 


a 


att Ybute od baaw at steven ane be he ‘ai us 
; tet Tomes i, % 
mrot sat wt wolt yesboge2 to een ‘ort entayem 20 ais en 


4936W to wot? gif tugetos sfielq ret coat2vow Canibus tn af 
-lafts¥eq [sthostrod 5 to notgsy Sansians Yawteds ek ae 


enudenaqites ~9tew ant -bodism faotiemun 6 ut Seamsta ot 7 
-aab ris gat bas 2°08 - 0 ar. not dered tengo ‘vebnu 9 3 "i 
wot otead’ oT Jesresnt ‘vrei to at 99) oe doetts | x 

noksoubnos toon rabhxe zobutont svudenegmes 407 bs ids! ze y " 
nor inv od ot nodss 2t ‘aisiiehoiianaal sonsvans ans — 3907 a ; 


r 
rigoviequ ont 40% wots ot m= = & notisaef nssvdequ | he | 5 
Foakann@n 2% comengna. Taira at duvlkaarnebiaghe 89 : 
jot bentstde s16 vedmua Aptat ye Tsotdino Aor 23 Tue84 a 

2rassmsted nots tbnoo Famed “bag 02 or ae eedmun, wage iv a 
| 


ne 


* 
Nie diel ntoth 


> kB 0. bne 2.0- 2 yh 2 0.8 0 sonst sds RE (Gh ay 


entmrasab.od avtesb § xd baievitom 2t shauisns odT buf 
3 | 


Per if 


faineds vt pntweds x0 “pnt sant aé 439?99 detadewno> s } 
a ian en andl, Te 
a _ is ee me eae -yesew to wo 


: ‘A, 
GP. Ce : : = 
es a (i WRC SP nw Beary os eo 


fe 


Pe 


Pr 


TTpy oT el 


o2 


Nomenclature 


temperature difference ratio, 
(T, - ee 


coefficients of infinite series defined 
by eqs. (5) and (6) 

dimensionless wave number 

operator, d/dz 


4) 


(1 a hy? + hod 
Grashof number defined below eq. (14) 
gravitational acceleration 


height of channel and L/2 


Liquid pressure Uns EP) ange pas tc 


flow pressure 

Peclet number, 4 U r/o = Re Pr 
Prandtl number, v/a 

dimensionless perturbation pressure, 
P'/(pv2/L*) 

Rayleigh number, Pr Gr 

Reynolds number, 4 U2/y 


water temperature (T, Pe) a basic Malow 


temperature, (T, + T,)/2 and uniform 


] 
upstream temperature 
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constant lower and upper plate tempera- 
tures, and maximum density temperature 


(4°C) 


axial and mean velocities and (U,/U.) 


of basic flow 


dimensionless perturbation velocity 


components, (U',V',W')/(v/L) 


Cartesian coordinates with origin at 


lower plate 

 XagnYew 74) 702 

(XE Ks / BP eu. 7172) 

transformed coordinates, (x/(3Pe/16) ,z) 
eigenfunctions 


transverse coordinate with origin at 


center of channel 
thermal diffusivity 
eigenvalues 


temperature coefficients for density- 


temperature relationship 
dimensionless temperature disturbance, 
6'/AT 


dimensionless temperature and uniform 
entrance temperature, (T, - LAGE: - rs 
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thermal condition parameters defined 


below eq. (13) 
kinematic viscosity 
density and maximum density at 4°C 


($, - 1), dimensionless basic velocity 
and temperature profiles, (1/2)u, = 


2 
Cpe er SL - 5) dé 


Superscripts and Subscripts 


pi 


perturbation quantity 
amplitude of disturbance quantity 


transformed perturbation variable or 


critical value 
basic flow quantity in unperturbed state 
upstream and downstream regions 


fully developed value 
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4.1 Introduction 

Thermal instability analysis for horizontal liquid 
layers with a density maximum was made by Veronis [1], 
Debler [2], Tien [3] using a parabolic temperature-density 
relationship valid for the temperature range 0~8°C and 
recently by Sun, Tien and Yen [4] using a third degree 
polynomial expansion for the temperature-density relation- 
ship applicable to the temperature 0 to 30°C. The onset 
of convection in a horizontal porous medium containing 
liquid with a density maximum was also studied by Sun, Tien 
and Yen [5]. It is noted that these thermal instability 
analyses are concerned with a horizontal liquid layer with- 
out main flow and represent an extension of the classical 
Benard problem to the case with maximum density effect. 

The objective of this investigation is to study the 
effects of maximum density on the onset fs longitudinal 
vortex rolls in the thermal entrance region of a horizontal 
plane Poiseuille flow where the lower and upper plate 
temperatures are maintained at Ty and Tos respectively, with 
Ty > Ts, or Ty < To. Recent theoretical analysis [6] based 
on Boussinesq approximation and experimental investigation 
[7] show that the instability sets in as steady longitudinal 
vortices in the thermal entrance region of a horizontal 
parallel-plate channel heated from below when a critical 
temperature difference is exceeded. For basic flow in the 
low Peclet number regime, the upstream heat penetration 


through the thermal entrance X = 0 becomes significant and 
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the boundary condition of uniform entrance fluid tempera- 
ture must be shifted from X = 0 to the far upstream loca- 
tion at X = -~ [8] to allow for the upstream heat conduction. 
The present work is motivated by the interest in determining 
the effect of free convection on ice formation or thawing 

in horizontal parallel-plate channels since water possesses 
maximum density at 4°C. The water temperatures under con- 
Sideration range from 0 to 30°C and the temperature regime 

is also of interest in studying the decay and growth of ice 


in northern lakes or rivers. 


4.2 Upstream and Downstream Temperature Solutions for 
Basic Flow 


If one neglects the viscous dissipation effects, the 
energy equation and the boundary conditions in dimension- 
less form for the thermal entrance region problem (see 


Fig. 1) with axial heat conduction can be written as 


96 329 2 946 
a ete ee eae os Cys ee (1) 
3 b ox ype 3Pe 948% 


epider) = 8g: 6,,(x',1)/9z' = 96, 4(x'.-1)/9z! = 0 


TO aie x) <0) (2) 


Gam des Ors 8 9(x'51) Sty Op o(x's-1) =-] for 0<x'<o (3) 
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6,1 (0,z') = O,5(0,z'), 96,,(0,z')/ax' = 90)5(0,z')/ox' 


ate x!) =d0 (4) 


where the dimensionless variables are defined in Nomencla- 

ture and xin (3/27 (18 z*4) for a plane Poiseuille flow. 
The solution methods described in [8,9] may be adapted 

to the present problem and the temperature solutions ON 

and ae in the adiabatic and heated regions, respectively, 


can be written as (Chapter II). 
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041 (% NZ) a + ) Bren iz Jexp(a x ) 


Op o(x'sz') = z' + L, CR, (z')exp(-B°x") 


HA AD Azle) ek aye ee ke ew (6) 


where Ges, and Re ys are the even and odd eigenvalues 
and eigenfunctions, respectively, for the adiabatic (up- 


stream) region. Similarly, g and Ri? 4, are the even 


n 
and odd eigenvalues and eigenfunctions, respectively, for 


ie Yn 


the heated (downstream) region. The details of the solution 
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method, the computed eigenvalues and the series expansion 
C0eta Leivents ‘for the tcasie 86 = | are given in Chapter 11. 

A fourth-order Runge-Kutta method [10] using two hundred 
equal steps is employed to obtain the eigenvalues and eigen- 
functions from the numerical solution of the characteristic 
equations and the related boundary conditions. The series 
coefficients are calculated by using the matching condi- 
tions at x = 0 for both the temperature and temperature 
gradients after constructing orthonormal functions from the 
nonorthogonal eigenfunctions [8]. In this study, the 
infinite series are truncated at n = 12 and 8 for Pe = 1 

Oda Ceae LU oO, srespectivaly. arorithesanstabyiity analysis. 
it is more convenient to shift the coordinate origin to the 
lower plate as shown in Fig. 1. As a result, the basic 


temperature profile now becomes t= (Le 6.) /2. 


4.3 Perturbation Equations 


If the basic flow field is perturbed, one obtains 


b b Fe SL ee a Lede gree WLS, 


Bea Char So. Introducing the dimensionless variables, 
UMsv 2) sults s 2) ts AUS ew) = CU Oey le). 
P*/ bove /ECY: 6 = 6'/(AT) and applying the linear stability 


Teo cere eemyerer Vere Wo eye aeons a 


analysis [5,6] using Boussinesq approximation, the perturba- 


tion equations in dimensionless form become 
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Re[,, ous W souy = - ob + yey (8) 
Red a = - a + yey (9) 
Reg ou = . 2p + vw 5 82 g (10) 
Reo, 22 pu ow oo DL gee a 


where aes B21 1) ez), b5 = Oe - T,)/AT =i Gl eae 6)/2 and 


y2 


= a°sax® + a2 ay? + 392/972, 
The density-temperature relationship for water in the 


temperature range 0 to 30°C is given as [5] 


eS yak ec miee ener coelieeabees J (12) 


Here the temperature at maximum density ey is assumed to 
lie between the lower and upper plate temperatures T, and 

T,. Considering the change in the density, 6p = p(T, +2004) he 
p(T), caused by the temperature perturbation 6', one obtains 
the following expression after neglecting the terms involv- 
ing (9')¢ and eee 


$0 = -Pmaxl2v(AdT)e'(1 + (3yp/2y,)AAT)ILI - 246 + Aoo*] (13) 
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where Ay /= (-T/A)L1 + (3¥5/¥,) (AAT) I/E1 + (3¥5/2¥,) (AAT) 1, 
hp = (1/A°)E(3y5/2y,)AATI/L1 + (375/21) (AAT)], 64 = 


ee Als? = "Cream lamers Te = te cand Ay =4(T,) MTs) /AT. 


1 2 1 aaa x 
The thermal parameters hy and ho were first introduced by 
sun, Tien and Yen [4,5]. 

The dependent variables u, v and p can be eliminated 
from the three momentum equations by using continuity equa- 
tion. Noting that 9 = "p from Boussinesq approximation, 


one then obtains 


0) 
Red, = (Vw) - Re ; = ou vey? 
Z 
2 2 
+ Grv, Miles hyo + hod ye] (14) 


where Gr = g(2y,AAT)(AT)L? [1 + (375/27) (AAT) ]/v* and 


ve = 3% fax? + ae yay?, Since the disturbance variable u 


appears also in energy equation (11), equations (8), (14) 
and (11) now become the set of governing perturbation equa- 
tions. It is seen that because of the presence of (AT)? 
in the expression for Gr, the onset of secondary flow is 
possible for heating from below as well as above. 

At the onset of instability in the form of steady 
longitudinal vortices (the type of Taylor-Gortler vortices), 
one may assume the perturbation form of f = fT(z)e lay for 


the disturbance quantities w, u and 6 [6]. Furthermore, 
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for vortex-type instability 9p/3x = 0 and the set of per- 


turbation equations becomes: 


Z 
(Do aa) owemmmer bast = 2tlg" (15) 
aX 
do 
ee Ew hrennies et ae (16) 
od J) 
(p° plese = Prfus x SW rae i, 


where f = 1] - hid + Ay oe and D = d/dz. 

In order to use the parameters Pr, Pe and Ra instead 
of Pr, Re and Gr which appear in the above set of equations, 
One may further introduce the transformations, x = (3Pe/16)x, 


= + + + : 
z= 2, U = Re u*, w = w*, and 6 = Pr @*, One thus obtains 
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The boundary conditions for the disturbances at the walls are 


For given values of 8y> Pr, Pe and X, one is interested 
in determining the minimum critical Rayleigh number and the 
corresponding wave number through the solution of the 
coupled equations (18) to (21). The numerical method of 
solution [6] employing the higher order finite-difference 
Scheme developed by Thomas [11] may be applied to the present 


eigenvalue problem. The details are given in Chapter III. - 


4.4 Numerical Results and Discussion 

The Prandtl number of water varies from 13.6 at 0°C 
to 7.02 at 20°C and is taken to be 10 in this study. The 
temperature coefficients for water [12] are sige (Ro AoTSs 
ioe. (or) é and By jab 18 2 1x 1078 (se)? with a standard 
devin domopeOwti ye i0aes i Thendatatisl of therdetermi nation 
of the coefficients Yy and Yo using the method of regression 
are given in Appendix III. One notes that the parameter 
A = (Ty - Ua RM is always positive and ry is always nega- 
tive for the temperature range 0-30°C under consideration. 
The expression for ho reveals that the value ho is negative 
when T), > ay (heating from below) and positive when 0°C < 


ie at (heating from above). For Ty > 4°C, the potentially 


] max 
unstable layer is confined to the region T, > 1 > 4°C near 
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the lower plate. Similarly, when 0 < T, < 4°C the poten- 
tially unstable layer with temperature ranging from Ty to 
4°C is also located near the lower plate. It is noted 

that without maximum density effects, the case of heating 


from above is always stable. As T, + 1T. A + 1 and the 


max”? 
whole channel becomes potentially unstable whether T, < 4°C 
OF Ty > 4°C. This is in contrast to the classical Benard 
problem where the horizontal fluid layer is unstable only 
when heating is from below. Also as T, - Nie deg A +0 and 
the whole layer becomes potentially stable. 

The typical numerical results for critical Rayleigh 
number and wave number are listed in Tables 1 to 5 for 
Pe = 1, 10, 50 and the ranges of parameters -2.0 27h <@=0.5, 
aieaQia 2 tino 1.4. The special case of ho = 0 corresponds to 
the parabolic density-temperature relationship (A, = 0) for 
the temperature range 0-8°C and the parameter hy becomes 
simply a faa (-1/A). The effect of Peclet number on the 
axial distribution of the critical Rayleigh number is shown 
THIF FG PO2SFoF 1 etek isn (or*A+="2) and hy = 0 (or ¥5 = 0) 
The axial heat conduction is clearly seen to have a destabi- 
lizing effect near the thermal entrance (x = 0) and the 
trend reverses before approaching the asymptotic value of 
Ra* = 2275 corresponding to a linear basic temperature pro- 
file. The upstream temperature profile do» becomes practic- 
ally uniform at x = -2, -1 and -0.05 for Pe = 1, 10 and 50, 
respectively (Chapter II), and it is concluded that Ra* + © 
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The instability results for Pe = 1 and ho =8=0 255 -] 
are presented graphically in Fig. 3 for various values of 
Ao. Since the upstream temperature profile is uniform at 
xX = -2, the asymptotic value for Ra* in the upstream region 
is infinity. The downstream asymptotic results agree 
exactly with those reported in [4] and the parametric 
effect of ho is also similar to that of Fig. 4 in [4]. aative 
two special cases of Ty = 0°C and T, = 0°C [4] are of con- 
Siderable practical interest since they correspond to the 
cases of melting from below (heating from below) and melting 
from above (heating from above), respectively’ The "physical 
interpretation of the numerical results can best be pro- 
vided by considering a specific example. From Table 5 of 
[4] for the case of melting from below (T, = 0) for a hori- 
zontal liquid Tayer, one finds that at dy = -1.014 and Xo = 
-0.301 (T, = 18°C), the theoretical and experimental values 
of Ra* are 4,021 and 4,663, respectively. The thermal 
instability of a horizontal liquid layer considered in [4] 
corresponds to the fully developed case with a linear basic 
temperature profile (independent of Peclet number) in the 
present problem. A simple linear interpolation of the 
asymptotic results for ho = 0 and -0.5 with hy = -1.0 in 
Table 3 gives Ra* = 4,100 for dy = -1.0 and Xo = -0.3., 


Fig. 3 also shows that the present result agrees with 


Ra* = 4,021 for A, = -1.014 and 4, = -0.301 given in [4]. 


Z 
Noting the parametric effect of ry for a given value of o 


shown in Fig. 3, one sees that the trend of the present 
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asymptotic results also agrees with the experimental and 
theoretical results given in Table 4 of [4] for the case 

of melting from above (T, = 0, heating from above). The 
above qualitative comparison suggests that the present 
instability analysis may be used in predicting the onset 

of longitudinal vortex rolls in a horizontal parallel-plate 
channel with main flow involving melting from below or above. 
This information is of particular interest in assessing the 
free convection effect on ice formation or thawing in hori- 
zontal channels. 

Further instability results for Pe = 1 and ho = 1.4 
are shown in Fig. 4 with hy as parameter. As noted earlier, 
positive ho Signifies heating from above with 0°C < Ty < 
4°C. The vertical distributions of the disturbances Oty 
w* and 8* together with the basic profiles Gi and 6 are 
illustrated in Fig. 5 and 6 for Pe = ly y = -0.5 and 
ho = -1.0 at various axial positions. In the plotting, the 
maximum amplitude of each disturbance is taken to be Oat. 

The profiles for u* and 6* at X = 5 are further 
illustrated in Fig. 7 for Pe = 1, dy = -0.5 and do = 0° 
theO se Lteis iseensthat u*cds negative near the lower plate 
and positive near the upper plate. The relatively weaker 
disturbance u* near the upper plate for ho = -1.0 as com- 
pared with u* for Ay = 0.8 is apparently related to the 
Smaller unstable layer thickness near the lower plate which 
is indicated by the higher critical Rayleigh number. In 


contrast to the reversal of sign for u*, the profile 6* for 
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ho = -1.0 is quite similar to that of ho = 0.8 except that 
the position of maximum 0* is located nearer to the lower 
plate. The information on the location of maximum 6* is 
useful in the experimental determination of critical Rayleigh 


number by measurement of spanwise temperature distribution 


bade 


4.5 Concluding Remarks 
1. The accuracy and convergence of the numerical 
solution are checked by an excellent agreement between the 
present downstream asymptotic results and the theoretical 
results for liquid layer reported in [4]. The latter 
theoretical results in turn are confirmed by the experi- 
mental investigation as indicated by the comparison shown 
in Fig. 7 of [4]. The matching of the critical Rayleigh 
numbers for the upstream and downstream regions at x = 0 
also provides a severe test for the convergence of the 
numerical solution and the critical Rayleigh numbers for 
the upstream and downstream regions are found to agree with- 
in three significant digits at x = 0. The numerical results 
can be seen in Tables 1 to 5. Furthermore, it is found 
that the increase of the number of eigenvalues and series 
coefficients to 20 for the basic temperature solution 
improves only slightly the degree of the matching at xre 20. 
2. The results of the present thermal instability 
analysis show that the effect of axial heat conduction on 


the onset of longitudinal vortex rolls in horizontal plane 
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Poiseuille flow is important when Re < 5 or Pe < 50. For 
<< < 


pe Tax > To» 


must be considered in thermal instability analysis [4]. 


water with T the density inversion effect 
The present analysis may be used in assessing the import- 
ance of free convection effect on melting and ice formation 
problems in horizontal parallel-plate channels by consider- 
ing the case with Ty =80°Gior Ty = 0°C. The free convection 
effect involving the density inversion is also of interest 
in studying the melting of ice formation problems for 
northern lakes or rivers. 

3. Since the entrance temperature parameter Bo» two 
thermal condition parameters (A) > do) and Peclet number 
are involved, only sample numerical results with 89 = 1, 
are presented. The numerical method is confirmed to be 
applicable to the ranges of parameters, -2.0 < hy < -0.5 


and -1.0 < 4, < 1.4. Outside these ranges, the unstable 


2 
layer with temperature distribution in the range T, eaTi< 
np te near the lower plate becomes so thin that the buoyancy 
effect tends to be washed out by the forced main flow. In 
other words, as A decreases or the relative magnitude of 


(T T ) decreases with respect to AT = ij Tos then 


1 max 

correspondingly the unstable layer thickness also decreases. 
It is also noteworthy that the parametric ranges for ry and 
ho in this study are narrower than those indicated in [4]. 
4, When one assumes the entrance temperature at 


X = 0 to be uniform as in the case of classical Graetz pro- 


blem [6], then the thermal boundary layer develops starting 


A an a4 fh 
n 4 


SOr 7 van 


qoW 08 > 84 408 > of Wedw Instv0% | 
jootte nein? Waa ond STORE 
Ce] etagiena (itt tania? toate ds it nab 
stroqm? odd patezszes Wh bseu od Vom ae tt 
notsenvet aot bas pntetom ne setts: pteorcnce a 
cxebtenos vd 2tennsido stetg- lot iersq Tatnostiod: nt emotdodg iH 
nottosvneo saNt 9AT .3°O = a xo 2°O * rt dttw 9269 att pnt AL 
jeavatnt Yo o2zlw et nobevever yttensb- die eatvrovat sostte Rt 
~o% @neTdoyg nottemiet 991 to pntdfom ody gatybute: at a 
Z lavevby vo 2aa8f wistvon | 
awd - 2/48 belies gus sTeqnes jane ans oante” fenseta 
+odmun sefoo% bre (eh pet eta tonmst 6g dots todeo Lemans rip 
ts g® aotw zituze" ras Prem sfqmtse Vine - bovfovat 91s a 
ad oF baawttnos 2t bodtam Tarts omur gat. Sata 
@,0- > .k > BS- veveromers: Yo eepney oat OF olassttaas 
afdesenu od .299nen Sead sbtesu0” BUTS) APE OF eopas | < 
T spay edt nb neftedtes eth sailesanal aytw wale i 


a he 
r ; 
yotsyoud aft fend nits oe gonprod-stetq sewof 93 nsanegeT in 
vl wort ntam beset aasy Yd Fue Lplstbinte’ babi ee ebnet so9TTs | a 
3 a 
¥o sbuttagpem ovivsle4 ets Vo asenovoet A. 25 . ebsow teiito ae 


font ool x ae TA ot Paehear atiw. ssbenvaad (eg! P47) = 

. 29eeerreb oets 22onto fad vous stdat enw ats ylentbnog ty 

pas ,k vo} eognby oft eMarina OAT Fone ‘tibhone ard EY < 
[Lb] at begsotbat e2odt mend vewot ren ae ebute atts Ml gk ihe 

ts aqus eragnis? aoneyane oft cow 2e one oi hae hes ie 


106) 


at x = 0. For the basic flow solution for temperature 
considered in this study, the fluid temperature is taken 
to be uniform at x = -~ in order to accommodate the effect 
of upstream conduction and consequently the thermal bound- 
ary layer thickness is not zero at x = 0. As a matter of 
fact, the basic temperature profiles at x = 0 for Pe = 1 
and 10 [10,11] show that the heat already penetrates to the 
upper plate and the whole cross section is potentially 
unstable (see Fig. 1). It is then seen that for Pe = 1 
and 10, the concept of thermal boundary layer is no longer 
applicable. The foregoing fact accounts for the decrease 
of critical Rayleigh number near x = 0 with the decrease 
of Peclet number as shown in Fig. 2. When Pe > 100 or 

Pe + , the critical Ra* becomes infinity at x = 0. 

5. The experimental instability data in the thermally 
developing region of a horizontal channel flow of water in 
the temperature range 0 ~ 30°C do not appear to be avail- 
able in the literature. In view of the importance of 
environmental heat transfer problem (freezing or thawing) 
involving 4°C for water, the experimental investigation is 
apparently in order. 

6. The potentially unstable layer with temperature 
ranging from Ty to Des. near the lower plate may be seen 
more clearly by considering the fully developed region 
where the basic temperature profile is linear. The upper 
limit of the unstable layer is then given by z = 1 - 


(T = TA)/(Ty - Ty). By keeping T, constant, one finds 
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that s(oz/or,)+ .> O forMéiieeeasesT... = 17. (heating! from 
] T, max 2 


a 
below). This means that as Ty increases the unstable 
layer thickness also increases. On the other hand, by 


keeping Ty constant one obtains (92/3T,)+ <0 Inhdicating 
] 


that as T, increases the unstable layer z decreases when 


T (heating from above). Physically, positive or 


ite Tax 
negative value of ho signifies heating either from above 

or below whereas the larger value of Jay! indicates the 
smaller unstable layer with the corresponding higher critical 
Rayleigh number. The above observation is useful in physi- 


cal interpretation of hy and ho and agrees with the results 
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TABLE 2. Instability Results for Pe = 1, A, = -0.5 
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TABLE 3. Instability Results for Pe = 1, 2, = -1.0 
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Page 2, TABLE 4 
Instability Results for Pe = 10, », = -0.5 
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CHAPTER V 


VISCOUS DISSIPATION EFFECTS ON CONVECTIVE 
INSTABILITY AND HEAT TRANSFER IN PLANE 
POISEUILLE FLOW HEATED FROM BELOW 


The effects of viscous dissipation on the onset of 
instability for longitudinal vortices in the thermal 
entrance region of a horizontal parallel-plate channel 
are studied by a numerical method for the case when the 
lower plate is heated isothermally and the upper one is 
cooled isothermally. Numerical results are obtained for 
PrewaOeuseO 7/5 .10 afd 100s alt. 1s, round thas. Viscous hieat= 
ing has a destabilizing influence. The effect is signifi- 
cant for large Prandtl] number fluid (Pr > 10) but is 
insignificant. for small Prandtl number fluid (Pr < Dit}. 
The viscous dissipation effects on thermal entrance region 
heat transfer for basic flow (without secondary flow) are 


also studied. 
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CHAPTER V 


VISCOUS DISSIPATION EFFECTS ON CONVECTIVE 
INSTABILITY AND HEAT TRANSFER IN PLANE 
POISEUILLE FLOW HEATED FROM BELOW 


The effects of viscous dissipation on the onset of 
instability for longitudinal vortices in the thermal 
entrance region of a horizontal parallel-plate channel 
are studied by a numerical method for the case when the 
lower plate is heated isothermally and the upper one is 
cooled isothermally. Numerical results are obtained for 
Pre=nO0e 0. 7,.10 and 00s slte1s s1oundminat: Viscous heat- 
ing has a destabilizing influence. The effect is signifi- 
cant for large Prandtl number fluid (Pr > 10) but is 
insignificant for small Prandtl number fluid (Pr < 0.7). 
The viscous dissipation effects on thermal entrance region 
heat transfer for basic flow (without secondary flow) are 


also studied. 
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Nomenclature 


dimensionless wave number 

Brinkman number, WU 7 (ke) 

coefficients in the series expansion of 8, 
coefficients defined by eq. (10) 

specific heat at constant pressure 

d/dz 

Grashof number, g8(AT)L9/v~ 


gravitational acceleration 


local heat transfer coefficients at lower 


and upper plates 
thermal conductivity 


a distance between two horizontal flat 


plates and L/2 
local Nusselt numbers, h,(42)/k, ho (42) /k 


fluid pressure (P, + P') and pressure 


for basic Tlow 
Peclet number, 4 U e/a = RePr 
Prandtl number, v/a 


dimensionless perturbation pressure, 


P'/(ov/L*) 
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V2z 


rate of heat transfer per unit area, 


-k(8T/8Z') 5. -k(aT/9Z')5_ 


Re b 


Rayleigh number, gBATL?/vo, = PrGr 
Reynolds number, 4 U es 


even and odd eigenfunctions 


fluid temperature (T, + @'), fluid 
temperature of basic flow, bulk tempera- 


ture and uniform entrance temperature 


constant lower and upper plate tempera- 
tures, and (T, a T,)/2 

axial and mean velocities and (U./U.) 

of basic flow 

dimensionless perturbation velocity com- 


Oneness le! VW) 7. (98/15) 


Cartesian coordinates with origin at 


lower plate 


-x'/(3/16)Pe = 


dimensionless coordinates, (X,Y,Z)/L 


dimensionless coordinates with origin at 
center of channel, (X/(3/8)Pes. 24/2 = 
Diente) 


transverse coordinate with origin at 


center of channel 


thermal diffusivity 
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coefficient of thermal expansion 
even and odd eigenvalues 


dimensionless perturbation, basic flow 

and entrance temperatures, @'/AT, 

(T, 7 TEA 5 = Tee) 2 (Tp far T J/(T, — im) 
characteristic temperature difference 

(T, - ny = (T, - T,)/2, and dimension- 
less fluid temperatures defined by eq. (3) 
perturbation and dimensionless bulk 


temperatures 

fia. VIsGos a cy 
kinematic viscosity 
fluid density 


dimensionless basic velocity and tempera- 
ture profiles (1/2)u, = 3(z - 2°), 
(15s: 6p) 72 


Superscripts and Subscripts 


perturbation quantity 
amplitude of disturbance quantity 


transformed perturbation variable or 


critical value 
basic flow quantity in unperturbed state 


fully developed value 
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5.1 Introduction 

Thermal instability of a plane Poiseuille flow in 
the thermal entrance region of a horizontal parallel-plate 
channel heated from below has been studied theoretically 
by Hwang and Cheng [1] and experimentally by Kamotani and 
Ostrach [2]. For Graetz problem (thermal entrance region 
problem) in pipes or channels, the effect of viscous dissipa- 
tion on convective heat transfer is represented by the fric- 
tional heating parameter, Eckert or Brinkman number. When 
the value of the parameter is not small (say Br > 0.01), 
it is expected that the viscous dissipation will have an 
effect on the onset of longitudinal vortex rolls in the 
parallel-plate channel and on heat transfer in the subsequent 
post-critical regime. 

Thermal instability in a horizontal fluid layer with 
a non-linear basic temperature profile caused by a uniform 
internal heat generation was studied by Sparrow, Goldstein 
and Jonsson [3]. It is noted that the role of the viscous 
dissipation term in the energy equation is qualitatively 
similar to that of internal heat generation term. The 
influence of viscous dissipation on Benard finite amplitude 
convection was studied by Turcotte et al. [4]. The viscous 
dissipation effect on Benard problem arises only if the 
main flow exists and apparently the problem has not been 
considered in the past. 

The purpose of this investigation is to study the role 


of the viscous dissipation in thermal instability of the 
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plane Poiseuille flow between two horizontal flat plates 
where the lower plate is maintained at higher temperature 

T, and the upper plate T, with uniform entrance temperature 
Ty = T,. It is known that the instability sets in as steady 
longitudinal vortices in the thermal entrance region when 

a critical temperature difference is exceeded [1,2]. Since 
the basic temperature profile is required in the present 
thermal instability analysis, the Graetz problem with vis- 


cous dissipation effects will be considered first and the 


heat transfer results will also be presented. 


5.2 Graetz Problem with Viscous Dissipation Effects ~and 
Basic Solution 


For Graetz problem (as shown in Fig. 1) with viscous 
heating, the energy equation and the associated boundary 


conditions in dimensionless form can be written as 


00 0 6 du 
7 Uno = et Br (2)? (1) 
OX OX d 
8, (0,z) > Oo» 6, (x,1) z Ve 6. (x5-1) = -] 2} 


where the dimensionless variables and parameters are defined 
in Nomenclature and uD = (3/2) (1 - z*) for plane Poiseuille 
flow. 


Taking cognizance of the fully developed condition, 
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the solution of eq. (1) can be written in the following 


form: 
Gece Zz) memo (X2) (3) 


where 8 (fully developed solution) and 0, (difference 


temperature) satisfy the following two sets of equations: 


d2 
oF =? 
ra SV ae a Ae Ey Chat Nama (4) 
74 
| ih 06, 970. foe 
] - Z re ? 9 6 Os Z a 0 
6 (X51) =o (%s=1) = 0 (5) 
The solution for 8, is 
eo. 2+4 Zz) =7 Zz 6 
Poe ee a Br Gli az) z + Brf(z) (6) 
where f(z) = (3/4)(1 - Zz"). The general solution of eq. 


(5) can be constructed in the form of infinite series [5] as 


DS, (Z) exp(-vex) (7) 


ron) 
= 

za 
Se 
-_-~ 
N| 
— 
0) 
x 
= 
-—-_ 

1 
WD 

= 
x< | 
~— 
+ 
ims 8 


se tibe aie ta span ee ine 
yO ah 141) eae8 Peres ebenemte: dya yh vie 


{ED. 4 via! aad My) RDO + Bye 


vy ty ROPE AT ee mins. ui cay a | 
sonetett tb) 8 bas Cpordutee bovoteveb ette¥) ule 


randtssups YO shee ah gpreaT iON bi att 7 
re (i nes.4 wer, hip da ah nee 


ates 0 Dy SO a or mae ed 
(B) fois + {f- dye Zs - - (hye rp = 73 18 2+ 
aa eee a 
a 
ty Ava Boek 6 66. oy shore 
oes 0,0. sai : ee va a 
ie ; Lr 19,4342 sat : 7 
| Oa 
wicca. Wey’ ig - ond ; 
(2) pete, M-,e * (ERDgS, ++ ape beer 
| a 
oh ee he v 
F 14 
(a) fovgiiey eee CF - rage de fe 


ghd i ait a a ane ; 


aber” 
_ «p98 76 notaufoe Tevemag oat rs ‘ ica « ane covet 


es (2), ac arian CNN a ross 
i Ra ae Fas Siac ai 


ery, & tig 
ah 


V2 


where Bae 4 and Ra? S_ are the even and odd eigenvalues 


n 
and eigenfunction, respectively, of the following Sturm- 


Liouville problems. 


d Ry 2 —2 

Fea CAE hy SO a (8) 
Z 
2 

ds 

a yom Glen zeysumar, Se(tl) @=10 (9) 
z 


The eigenvalues and eigenfunctions are obtained by applying 
the fourth-order Runge-Kutta method [6] employing two 
hundred equal steps. Applying the boundary condition at 

the channel entrance x = 0 and using the orthogonality pro- 
perty of the Sturm-Liouville system, one obtains the follow- 


ing expressions for C, and Da: 


C. = Ch . BrK. (10) 
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Here Simpson's rule (IBM-SSP) is used for numerical inte- 
gration. It is noted that when 89 = 1, the first coeffi- 
cient Ch is identical to that of the Graetz problem and 

the second coefficient Ky corresponds to the viscous dissi- 
pation effect. The first eight values for Che KA? 
well as Bye raeare listed in Table 1. 

Although the basic solution to be used for the thermal 
instability problem is of primary interest here, the local 
Nusselt numbers Nu, and Nu, at the lower and upper plates 
defined by the following equations for the case of heating 


from below (T, > T,) are also of practical interest. 


h, (42) q 30 
Nu = — = ot ee (SS med 
] bm bm 92 
2 k k OF be - T,) Te oP ee ane sa (13) 
where the bulk temperature ce is 
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Of particular practical interest here are the following 


cet ; ; he ay nS! ane} 


-oint Teptnemun sot beaw 2h; (922-Mat) “atwy, e'nozqnt2, ona 


-tit900 seve? att af % go nodW deat, petom et a1 _ fottere 
bos mefdovg stosvs oft Yo todd oF Teottnght 2t 5,9 deere 
-teetb euesety aft of ebmoges1102 , ¥ tnekattts0o bnoose ons 
26 0 a, A on@ POT eowlay tApte seit? ont stostts nottsq, 
Tt sfdet nt bedetl ov o. 26 [Tow 

remvets sft vot beev od of moftuloz stesd aft AguodtfA 
fenof oft . evan sesvadnt yreming to 2? meafdowg ys tr bdssent 
aevslq vaqqu bas yawol od 36 un bas rue aradmun sfo2eun 
pittsed 10 sano odd NOT enotssupe ontwatfot aft yd bentteb 
jeavetnt Isottosyg, to o2fs 976 CT <»_T) wolad moyt 


ro > og 
86 p (28) a” 
h { GH - 
(Sf) (i) ey — 
"See wa” Taa® > a ii 
vite 
gee nN gP (28) (30) Ap ens 
(ef) ree, i Be i (Tr - mae) i ma 
of. 8 srs sveamed Afud sit ot9edw 


md 
: $148 
a baa 
if : Ps ; 
(ar) 36) aCPE-F) P GSa-axoga { (sve) + a(eeyes) * 


m as A (putt pm ‘ , ‘s 
{ ’ a/ _ 
1 ¥ %s 


. patwollot edt 916 ove tzesoi0! [so ttos tq asfuottisq 0 


asymptotic results (x + ~) valid far downstream from the 
thermal entrance. NUye = 4(1 + 3Br)/(1 + 24Br/35), 
NUo¢ = 4(1 - 3Br)/(1 - 24Br/35). 


0, = Z + (3/4)Br (1 - Z), One = (24/35) Br (15) 


5.3 Perturbation Equations for Thermal Instability Problem 

Within the thermal boundary layer, a top-heavy situation 
prevails and the layer occupying only partial region of the 
channel is potentially unstable. It is readily seen that the 
thermal boundary layer is more stable than the fully-developed 
region where the whole region is subjected to an adverse 
temperature gradient. At this point, it is convenient to 
shift the coordinate origin to the lower plate as shown in 
Fig. 1 for thermal instability problem. Applying the method 
of small disturbances (a linearization about the basic flow) 
and using the Boussinesq approximation, the perturbation 


equations in dimensionless form can be written as [1]: 
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where the dimensionless quantities and parameters are defined 
in Nomenclature, 9, = (1/2)u, = 3(z - z*), o, = (1 - 0/2, 


2 2 


V, = 3° 79x! + a? say’, and ve = ae ax! in 3° say? + 3* faz, 


] 
It is noted that the terms involving Br on the right-hand 
side of perturbation eq. (18) represent the viscous dissipa- 
tion effect. 

At the state of neutral stability, one may assume 
that the perturbations 8, w, and u have the form, 
f = fr(z)eld, for instability in the form of longitudinal 
vortices (the type of Tayler-Gortler vortices) [1]. The 


set of perturbation equations then becomes: 


ie acre (19) 


do bes 
(D2 : acdue = Re = w (20) 
3 ay) d¢ 
(D2 - a*jea* = Pr(u~ = yf —) + a = Du* (21) 


where D = d/dz. In view of the dimensionless basic flow 
variables, it is convenient to introduce the transformations, 
wo =w*, 6 = Pré*, u* = Reu*, x' = (3/16)Pex and one 
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For given values of Br and Pr, one is interested in 
determining the critical Rayleigh number and the correspond- 
ing wave number for the onset of instability through the 
SOfution Orjithe set-or eq. (22) to (25).” The method of 
solution for the eigenvalue problem used in [1] may be 
applied to the present problem and the details of the 


numerical solution will be omitted. 


5.4 Results and Discussion 


5.4.1 Heat Transfer Results for Graetz Problem 

The numerical results are obtained for 89 = 1 corres- 
ponding to the ease with the entrance temperature Ty being 
equal to the upper plate temperature Ty. The developing 
temperature profiles are shown in Fig. 1 and 2 for Br = 0 
and -2.5, respectively. The Brinkman number effect on 
temperature profiles at x = 0.06, 0.2 and 2 is shown in 
Fig. 3 to 5 where the local bulging of the profile near the 
upper and lower plates is apparently caused by viscous heat- 


ing. At x = 2, the temperature profiles become fully esta- 
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blished. In interpreting the result, it is well to note 
that in practice the Eckert number (Ec = Br/Pr) can be of 
order one. Consequently, Br = -100, for example, is prac- 
ticable only if Prandtl number is of order 10%. An 
inspection of the developing temperature profiles readily 
identifies the region of the channel cross-section where 
the top-heavy situation exists. The axial distributions 
of the bulk mean temperature Ob m and the local Nusselt 
numbers Nuys Nu. are shown in Fig. 6 and 7, respectively. 
Fig. 7 shows that as the magnitude of Br increases, the 
value of Nu, decreases and that of Nu, increases. The 
change of sign for Nu, is related to the reversal of heat 
transfer direction. Equation (12) shows that as 78 line -l1, 


Nu, + + » depending on the sign of (36, /9z) Apparently, 


z=-1° 
the singularity for Nu, has no particular physical signifi- 
cance At lnrFig.) 7 ,tthestffects? of Brinkman number on the 


asymptotic results are of special interest. 


5.4.2 Instability Results 

The influence of viscous dissipation on the onset of 
longitudinal vortices in the thermal entrance region of 
plane Poiseuille flow between two horizontal plates with 
heating from below is of principal interest in this study. 
The instability results are shown in Fig. 8 and 9 for 
Pemee0s 1600.75 IOVahd 10°, respectively. As noted in [1], 
with Pr = 0.1 the flow is more unstable in the thermal 


entrance region than in the fully-developed region. The 
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viscous heating is clearly seen to be a destabilizing 
effect but it depends also on Prandtl number. With Pr = 
OalfoBm Ses0. LoandeRr fs 10 a4, eBre=s-bh. thervis:ecus cheat ing 
effect on critical Rayleigh numbers in the thermal boundary 
layer appears to be negligible practically. For Pr = 10 
and 10%; a local maximum for Ra* appears at x x 0.4 before 
approaching the asymptotic value when the magnitude of Br 
exceeds a certain value. Since this phenomenon does not 
occur for the case without viscous dissipation effects [1], 
one may attribute the cause to the combined effect of the 
forcing terms on the right-hand side of the disturbance 

eq. (24). In this connection, one should note that the 
developing basic temperature profiles 6 depend on Br only. 
The reason for the local stabilization near x = 0.4 is not 
immediately clear and remains to be clarified. 

At Br = -1, the effect of Prandtl number on Ra* in 
the entry region is shown in Fig. 10 where the critical 
Rayleigh number is seen to be a monotonically decreasing 
function of x. One also observes that Prandtl] number has 
a stabilizing effect but the effect diminishes as fully- 
developed condition is approached. It is found that for 
fully-developed flow the ratio of the term (96,/92)w* over 
the term 4(do /2z)Du* on the right-hand side of eq. (24) 
is of order 105 for Br = -1. Thus, the critical Rayleigh 
numbers for Pr = 0.7 and 100 differ very little at Br = -1] 
ads xX + ca, 


For thermally fully-developed Poiseuille flow, a 
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qualitative comparison between the present thermal instabi- 
lity problem and that of a horizontal fluid layer with 
uniform heat sources [3] is possible. For fully developed 
flow, one obtains 39> 4/9Xx = 0. Furthermore, without viscous 
dissipation (Br = 0) the perturbation eq. (23) is not 


required and the resulting set of equations becomes: 
2 2 2 u 
we'="a Rag*, (D = a yo* = (36,/3z)w* (26) 


The above set of perturbation equations is apparently equi- 
valent to that of [3] or the classical Benard problem and 
the critical Rayleigh number is known to be 1708. Fora 
horizontal fluid layer with uniform heat sources, the basic 


temperature profile can be written as [3] 
6 re (T = To)/ (Ty a T,) &: (1 = 2) + No(z - Z 


where the heat source parameter N. tis; defined? wnriSic = 01 
the other hand, the fully-developed temperature profile 


6 for the present problem is given by 


Based on eq. (27) and (28) for basic temperature profiles, 


One may conclude that the heat source parameter hs Coals 
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equivalent to the viscous dissipation parameter (-3Br). 

It is noted that the basic temperature profiles shown in 
Fig. 5 are somewhat similar to those shown in Fig. 2 of 
[3]. The instability results for the fully-developed flow 
are shown in Fig. 11 where the curve for Ty > Tos N. cd) 
shown in Fig. 3 of [3] is also displayed for comparison. 
[ne Figesii= > one-sees™tnat with viscous@aissipationreT tect, 
the fully-developed critical Rayleigh number depends on 
Prandtl number. For a given Pr, one can clearly identify 
the range of (-3Br) where Ra* is practically equal to that 
of the linear temperature case (Ra* = 1708). As (-3Br) 
increases, Ra* decreases, at first slowly and later rather 
rapidly. In this respect, the present instability results 
are qualitatively similar to the critical Rayleigh number 
behavior for a horizontal fluid layer with heat sources [3]. 
Fig. 11 also shows the difference between the two instabi- 
lity problems. 

The viscous dissipation effects on fully developed 
neutral stability curves Ete Shown in rages) ct Tor "Pry =) 100 
and x = 5. The viscous heating is clearly seen to be a 
destabilizing influence. Within the range of present 
investigation, the fully-developed instability results for 


Pr = 0.7 and 10 do not differ appreciably from that of 


Pr 100. 


5.5 Concluding Remarks 


1. The viscous dissipative heating is an inherent 
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irreversible process and it is desirable to establish the 
range of parametric values for Brinkman number or Eckert 
number where the viscous heating is significant in forced 
convective flows. In this investigation, the viscous 
dissipation effects on Graetz problem [5] and on thermal 
instability problem [1] in the thermal entrance region of 
plane Poiseuille flow between two horizontal flat plates 
with heating from below are studied. 

2. It is found that the destabilizing effect of 
viscous dissipation is significant for large Prandtl number 
FelUnidd oleS aye Pity 2a olhOJasbistetehenrefifect is insignificant for 
small Prandtl number fluid (say Pr < 0.7). 

3. The present instability results for the limiting 
case of Br = 0 agree with those of [1] for Pe > ~. For 
fully-developed flow, the destabilizing effect of viscous 
heating is found to be similar to that of internal heat 
generation in a horizontal fluid layer discussed in [3]. 

4. It is observed that the combined effect of Prandtl 
and Brinkman numbers in the perturbation eq. (24) may lead 
to a locally stabilizing effect resulting in a local maximum 
for Ra* before reaching the fully-developed region. 

5. In this study, the viscous dissipation effect in 
the perturbation eq. (24) is represented by the Eckert 
number (Ec = Br/Pr). In this connection, it may be of some 
interest to point out the relationship between the Eckert 
number and the viscous dissipation parameter, Di = gBL/c, 


appearing in Benard finite amplitude convection problem [4]. 
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Interpreting gB(T, - To)L as (characteristic velocity) * 

and the characteristic temperature difference as (T, - T,)> 
it is seen that the parameter Di = gBL/c,, in [4] is equi- 
valent to the Eckert number for the present problem. 

6. The present analysis is based on constant physical 
property assumption and the variable property effect is not 
considered. The complete numerical results are listed in 
Fabke 2 to W4. 

7. With viscous dissipation effects, the entrance 
condition of uniform fluid temperature at x = 0 must be 


regarded as an approximate one. 
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Fig. 1 Coordinate system and developing temperature profiles for Br = 
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Fig. 2 Developing temperature profiles for Br = -2.5. 


OS 
Al hs 
| 


1d 


Fig. 3 Brinkman number effect on temperature profiles at x = 0.06. 
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Fig. 5 Brinkman number effect on fully developed temperature profiles 
(x = 2 
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Fig. 6 Brinkman number effect on axial bulk temperature distribution. 
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Fig. 7 Brinkman number effect on local Nusselt number results. 
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CHAPTER VI 


THERMAL ENTRANCE REGION HEAT TRANSFER FOR MHD 
LAMINAR FLOW IN PARALLEL-PLATE CHANNELS 
WITH UNEQUAL WALL TEMPERATURES 


The problem of thermal entry heat transfer for 
Hartmann flow in parallel-plate channels with uniform but 
unequal wall temperatures considering viscous dissipation, 
Joule heating and axial conduction effects is approached 
by the eigenfunction expansion method. The series expan- 
sion coefficients for the nonorthogonal eigenfunctions are 
obtained by using a aay for nonorthogonal series described 
by Kantorovich and Krylov [20]. Numerical results are 
obtained for the case with entrance condition parameter 


Cel mendescpenpclrcude cOndituonuke= nl aalhe parametric 


0 
Values of Ha = 0, 2, 6, 10 and Br = 0, -1 are considered 


for Hartmann and Brinkman numbers, respectively. 
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Pr = Prandtl number, Cue /k 

91°49 = Yates of heat transfer per unit area, 
SO ee -k(9T/3Z),_.> respectively 

Re = Reynolds number, PU a/M 

T,T9,T,>T. = fluid temperature, uniform entrance 
temperature, uniform but different lower 
and upper plate temperatures, respectively 

Wool = bulk temperature and (T, + T,)/2 

U,U_ su = axial, mean and dimensionless velocities, 
respectively 

Vv = velocity vector 

KeeZ = axial and transverse coordinates 

XZ = dimensionless coordinates 

Soca = even and odd eigenvalues 

85659), = dimensionless fluid, entrance and bulk 
temperatures, respectively 

6.28420 ¢ = characteristic temperature difference 
(T, - ade and dimensionless fluid 
temperatures, defined by eq. (10) 

Uae = magnetic permeability and viscosity of 
fluid 

0 = fluid density 


0) = ‘electric conductivity 
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Gxnlge i mtroducition 

Magnetohydrodynamic flow in the entrance region of a 
parallel-plate channel has been studied by many investi- 
gators in the past. The problem of laminar forced convec- 
tion heat transfer for fully developed MHD flow (Hartmann 
flow) in the thermal entrance region of parallel-plate 
Channels has also been studied for the cases of constant 
wall temperature [1-6] and constant wall heat flux [5-8]. 
Similarly, the forced convection heat transfer of an MHD 
flow in the hydrodynamic entrance region of parallel-plate 
channels has been investigated for both uniform wall tempera- 
ture [9-12] and uniform wall heat flux [13]. Combined 
forced and free convection heat transfer for MHD flow in 
vertical parallel-plate channels has been investigated 
extensively in recent years for .the fully developed flow 
case. Recently, the problem of combined forced and free 
convection magnetohydrodynamic flow in the entrance region 
of a vertical parallel-plate channel was studied for both 
the constant wall heat flux and constant wall temperature 
boundary conditions [14]. 

For magnetohydrodynamic flow in the thermal entrance 
region of a horizontal parallel-plate channel heated from 
below, thermal instability problem concerning the onset of 
fongitudindlrvortexerolisel l5l]earisest “Aftersa’ critical 
value of Rayleigh number is reached, the flow assumes a 
three-dimensional character and consequently the published 


heat transfer results for thermal entrance region may no 
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longer be applicable. A literature survey shows that the 
published works on thermal entrance region heat transfer 
are concerned with the thermal boundary condition of either 
uniform wall temperature or uniform wall heat flux only at 
both upper and lower plates. The purpose of this study is 
to present the heat transfer results in the thermal entrance 
region of Hartmann flow between horizontal parallel plates 
at unequal but constant temperatures. The present problem 
deals with the basic flow solution required in the thermal 
instability analysis discussed in Chapter VII. In the 
analysis, the internal heat generation terms due to both 
Joule heating and viscous dissipation as well as axial 
conduction term [5] in the energy equation are retained. 

As noted in [16], heat transfer derdiat aa the thermal 
entry region for fully developed laminar flow between 
parallel plates at uniform but unequal wall temperatures 
involves two distinct sets of eigenvalues related to odd 


and even sets of eigenfunctions, respectively. 


6.2 Governing Equations 

Consideration is given to a steady, viscous, incom- 
pressible, electrically-conducting fluid with constant 
physical properties flowing in a horizontal parallel-plate 
channel under the action of a constant transverse magnetic 
field By: The laminar velocity profile is already the 


fully developed Hartmann profile at a certain cross-section 


X = 0 (see Fig. 1) and the fluid temperature Tp iSeIGOnS cane 
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up to X = 0. For X > 0, the wall temperatures at lower and 
upper plates are maintained at constant values T, and To; 
respectively. For the steady system under consideration, 
the basic equations are the equations of continuity, momen- 
tum and energy, Maxwell's equations and Ohm's Law. In 


vector notation, one obtains [17] 
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mnere v=) (50,0), J = (0.0.0), >= (0,E),0), B = (0,0,B)) 
for the present problem and % = viscous dissipation func- 
tion. The effect of the induced magnetic field BY is 
assumed to be negligible in comparison with the applied 
field B,. Referring to the coordinate system shown in 


0 
Fig. 1, the energy equation becomes 
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aT sows 3 AT du, ° Jy. 
pc, U yee ay + oe + Ue (a7) ea is (6) 
where a = o(E, - UB) and the simplified version of the 


Ohm's law without Hall effect is used. Introducing the 


dimensionless variables and parameters, 
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equation (6) becomes 
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The thermal boundary conditions at the thermal entrance, the 


walls and thermally fully developed region are 
6(0,z) = 99> OxG b) = 14 Bixee) = =) 6(~,z) = Oe (8) 


It is seen that viscous dissipation and Joule heating repre- 
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sent the heat source terms in the energy equation. For 
magnetohydrodynamic fully developed laminar flow, the 


well-known Hartmann solution [17] of equation (2) is 


Ha(cosh Ha-cosh Haz)/(Ha cosh Ha-sinh Ha) 


(es 
iT] 


C, (cosh Ha-cosh Haz) (9) 


where C, = Ha/(Ha cosh Ha-sinh Ha). It is noted that when 


Ha = 0, one obtains u = (3/2)(1 - 2°). 


6.3 Solution of the Energy Equation 


It is convenient to seek the solution of equation (7) 


in the following form. 


SS AGN: 8 (x,2z) (10) 


where 8 - is the fully developed solution and oe is the 


excess temperature satisfying the following set of equations. 


2 
f d 2 2 
rN Br[(G>) + Ha“(K-u)“] = 0 (11) 


with the boundary conditions, 


at s) aotdhupe ro {511 | 
, of roe a ee 


58 4G at J a j 
(et dnte-eit dees 8H) \(s net: dzoo)sH * . 
staal: 8 mide yy ee al +i 


(i ascohie aoe am 
ie a inthe ie 


= 
’ 


(®) 


i 
netw Isn3 hates at $I P teh date-sH d2oo sh) \sH = Bae 49 


sy 
> = 


he 


; nortsup3 versed she ire notaut 
¥o nobsutor Pr jee of Se ue le at i uo 


myo ontwot lor as nk 
i ee . 7 


(%) anki aves: 


(oF) ; (sen),8 + (s)98 * Benet Ty gine 


end af ,0 bap norsuroe. segotaved tpn s oft at, 
_2enotseupo Yo fee entwot tor ad pay one avder | 


170 


00, 
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OX Pet 2 


with the entrance and boundary conditions, 


6, (0,z) = Sey @,(x,1) = @,(x,-1) = 0 (14) 


Substituting equation (9) into equation (11) and integrating 
twice, using the boundary condition, one obtains the solu- 


tion for 6, in the following form: 
O, = z + Br[(C4/4)(cosh 2Ha-cosh 2Haz) + 20, C,(cosh Ha 
4 Zee Za E 
- cosh Haz) + (CHa 2D lak= zie) eS eZ Bz) (15) 


where Cy = K - C, cosh Ha and f(z) = terms inside square 
brackets. When Ha = 0, one obtains Gr = Zhi (3Br/4).(1 - 2"), 
The general solution of equation (13) can be constructed 


tn the “form .of, infinite series sas 


1, D0, (z)exp(-v,x) (16) 


where Bh the and Ey uF are the even and odd eigenvalues and 


eigenfunctions, respectively, of the following characteris- 


tic equation and the associated boundary conditions. 
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reduces to the classical Sturm-Liouville systems typified 


7) 


by the Graetz-type problem neglecting axial conduction term. 


The eigenvalues and the corresponding eigenfunctions are 


determined in this study by solving equations (17) and (18) 


using the fourth-order Runge-Kutta method [18]. Two hundred 


equal steps are employed and the boundary conditions for 


E, and ths at the starting point are E (0) = |, dE (0) /dz = 


and 0, (0) = 0, dO, (0)/dz = 1, respectively. The eigen- 
values are improved by using variable secant method [19] 
which requires assuming two trial values for BY, Onn with 
the difference of say 0.1 at the start. The even eigen- 


values B, are listed, ingl 6] oforeHa = 12.46,.10 and,Pe = 1, 
Ue 10°, co and can be used as the initial values in this 


study. The number of iterations required to reach Eth) 


8 


or CABG, < 10 “ depends on the initial value of EO. 


but usually it takes only 5 to 7 iterations. The spectrum 


of eigenvalues is checked by plotting ba lhs ope iby ips 
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be determined by the application of the entrance condition. 
Since the axial conduction term is retained, the eigenfunc- 
tions lack the property of orthogonality and the eigenfunc- 
tion expansion technique for Sturm-Liouville system no 
longer applies. To overcome the difficulty the method for 
nonorthogonal series described in [20] is used in this 
study. From the thermal entrance condition at z = 0, one 


obtains 


Here, one notes that [8, - Brf(z)] is an even function and 
Z is an odd function. After multiplying both sides of 
equation (19) by E.(z) and integrating it, one obtains a 
system of N equations by taking the first N terms of the 


series. 


Gi eel RZ eee N ) (20) 


In practice, the lower limit of the integral may be replaced 
by 0 and Simpson's rule (IBM-SSP) is used for numerical 
integration. The system of N linear simultaneous equations 


with N unknown coefficients is solved by Gauss-Seidel method 


_ 


-onutosots aay divs. uhoabpiers to yin! oe: ee 
on wed eye oft tvuots-miud2 “oF pai ail 


sot bodtem ard ytiuotet rh sdf emootevo on! aati 9 
etdd aft bsew at (os) nt bedinoesbd 2otrs2 Fedogor 


ono -0 = 5 on mote ibago sanstsne bane ene ce 


. ral. gue uve 


ow °d ese rat ti pe ase ; 


“3 


; - 
(er) * - Us) rt - _ = (2,0,0 7 (ee as ’ er 


A 7 
if LS? - i ad 

bas nottone? asve ne ef ee - of] tsag 29300 9NO 499, 
to agbte ditod patyl@ts ium vel tA .notsoaut bbe. mg ats 
e entssdo-ano 2aF. onttevpacat bane (5), 3x4 (er) ai4 core : 
oft to. anved W text? odd pafas? yd enotisups MW to m ae 
fA? CHARS OF) ti 
| ; : ‘ae i. 6 these oe) 
a 

Shi  DESN: 0° ; © sb(s)}3(81,7 i ay 


_— 
i, Lah. yt Bie Ti i 


| at ’ iy Wied eo aie Me 2s 
; t < : 
KOS), Ap an © Bei ae ih emt , ty av 
iba at sia}. 4) onaeba tt > 
; ons ,S9oF 
a. Yo 2a, awe! sh, «9879 
j a tun 3 a ) va 
ee, A ae oy ey een 
Oo. m5. s ; 


bsos'qet ad yoo 
Sipaietindsth> 


Riis aes ire 


Pe ete 
mr oo 


173 


(IBM-SSP). Similarly, for the odd coefficients Di» one 


obtains 


] ] 
: dD, i 0,(2)0,(z)dz ari i (-z)0,(z)dz, NEN Segdn00 (21) 


=) 
Tt ee 


Considering the case of heating from below (T, > To) > the 
expressions for the local Nusselt numbers Nu, and Nu, at 


the lower and upper plates, respectively, are defined by 


Nu “his Mbit 9 5 Se ey G22) 
] k k (T, - b? 1 0. Zi iain 
h,a q 
~ 23 e-o 2 eter Beh 0G 
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b Z b z=] 
where the bulk temperature 8. is 
] ] 
fee tim olde) fecudz (24) 
-1 -] 


The following limiting expressions corresponding to the 


fully developed condition (x + ~) are also of interest 
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2 3 


C C 
®p¢ = (Br/2)[—- cosh 2Ha + 74 (3 + cosh 2Ha) 
+ 4C,°C,{1 + 5 cosh 2Ha - qe sinh 2Ha} + C,“Ha“{1 
Peo oF Tee 
- C, cosh Ha(> + =—7) fiat (1 + soy) sinh Ha}] (25) 
Ha Ha 
C 2 
] : ! : 
Nuy¢ = il - BrHa{—>— sinh 2Ha + 20,0. sinh Ha 
faGesHaldd Gacpope) (26) 
2 b f 
C 2 
- ] : ; 
Nude = [1 + BrHa{—— sinh 2Ha + C,C, sinh Ha 


+ Co"Ha}]/(1 + & ¢) 


6.4 Numerical Results and Discussion 

The present problem involves five parameters (Pe, Ha, 
Kee Tos 89) and the range of variation of each parameter 
WRUCHKMiSmMOnepraCticaleinveress: lmotLnis essbudy 1S \Pe, ae 10! ~)o, 
Hage Ue LOL ke@s Olt i ee By =a Os. 1 86 = -~m ~ ©, respec- 
tively. Because of the number of parameters present, computa- 
tions are made for the parametric values of Pe = 10, ‘los. 
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axial conduction, Hartmann number and viscous dissipation 
effects on thermal entrance region heat transfer. 


The eigenvalues Bye Un and the coefficients Ci? D., 


for Pe = 10, 10°, » and Br = 0, -1 are listed in Tables 1 
to 4 for the cases of Ha = 0, 2, 6 and 10, respectively, 


with 6. = 1 and K = 1. The eigenvalues BY and Y, are 


0 
independent of the values for 86 and K. The numerical 
values of C. are a function of 89 and K as well as Br. 


The values of D., are independent of Br and a function of 


6 and K only as can be seen from equation (21). 
The developing temperature profiles (9 = 5 (1 - 6) 
versus z' = 5 (z + 1)) at various axial positions in the 


thermal entrance region are presented in Figs. 1] to 5. With 
K = 1 (the lowest current or open circuit case), the Joule 
heating is minimum and the viscous dissipation produces more 
heating than the Joule heating. Fig. 1 shows that with 

Pe@=2 105 Ha®='O4eB rt ="08Rae fully devetoped® linear’ tempera- 
ture profile is already attained at x = 5.0. It is found 
that twelve eigenvalues are not sufficient to yield conver- 
gent solution near the thermal entrance x < Wee The case 
of Br = -1 (heating from below) represents dominent overall] 
dissipation and Brinkman effect can be seen clearly by a 
comparison between Figs. 1 and 2. Fig. 2 also shows that 
viscous heating effect is particularly appreciable near 

the upper and lower walls. Similar plottings for Pe = 10 


and Ha = 2 are shown in Figs. 3 and 4 for Br = 0 and -1.0, 


respectively. With Br = 0, Hartmann number effect can be 
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seen by comparing Fig. 3 with Fig. 1 and one notes that 
thermal entrance length does not appear to be affected by 
magnetic field at Ha = 2. Fig. 4 shows that dissipation 
effects are further magnified by Joule heating at Ha = 2. 
The behavior of fully developed temperature profile shown 
in Fig. 4 can be understood by invoking the membrane ana- 
logy for equation (11). In equation (15), the term Br f(z) 
apparently represents the dissipation effects. The Hartmann 
number effects on developing temperature profiles (¢) and 
On bulk temperature distribution (6) are further illustr- 
ated in Figs. 5 (Pe = 10) and 6 (Pe = 100), respectively. 
One notes that the difference between the axial bulk tempera- 
ture distributions for Pe = 10 and 100 can hardly be dis- 
tinguished graphically. 

Of particular practical interest in this study are 
the effects of Hartmann number on local Nusselt number varia- 
tions at the lower and upper plates and the results are 
presented in Figs. 7 and 8 for Br = 0 and -1, respectively, 
and in Table 5 and 6. The effect of magnetic field on 
local heat transfer is clearly seen in Fig. 7 for Br = 0. 
At Pe = 100, the axial conduction effect is practically 
negligible and the local Nusselt number Nu, at the lower 
plate increases with the increase of Ha. Similar effect 
also exists at the upper plate but the local Nusselt number 
is seen to be zero up to a certain axial distance (x x 8 x 


-2) 


10 At Pe = 10, the axial conduction effect is quite 


pronounced and the local Nu, decreases as Ha increases up 
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tobx S0gckuign: 


but further downstream the trend reverses 
and is similar to that of Pe = 100. At the upper plate, 
the difference in local Nusselt numbers (Nu,) between 
Pe = 10 and 100 is very small but the case of Pe = 100 
has higher value for a given Ha. It is seen clearly that 
the axial conduction effect disappears completely at x = 1. 
With Br = -1, the local Nusselt number behavior is 
more complicated than that of Br = 0. In Fig. 8, the zero 
Nusselt number signifies a change in the direction of the 
heat transfer at the wall. At Br = -1, the viscous dissipa- 
tion effect is dominant and the Hartmann number effect is 
similar for Pe = 10 and 100. The local Nu, decreases as 
Ha increases and the trend is opposite to that of the case 
Pe = 100, Br = 0. The merging of the two curves for Pe = 
10 and 100 with the same value of Ha at a certain axial 
distance x wndjeates the vanishing axial conduction effect. 
The behavior of the fully developed Nusselt number Nui 
can be explained from the fully developed temperature pro- 
files at x = 5 shown in Fig. 5 where the fluid temperature 
d is seen to be higher than the lower wall temperature. 
Because of the viscous dissipation effect, the local Nusselt 
number Nu, at the upper plate is not zero near the thermal 
entrance x = 0 and the Nusselt number Nus decreases mono- 
tonically toward a fully developed value depending on Ha. 
The effect of Ha on fully developed Nusselt numbers Nu, can 


be explained from the corresponding temperature profiles 
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6.5 Concluding Remarks 

1. The present method of computation for the series 
expansion coefficients is different from that of [5]. The 
present computational procedure is very straightforward 
and leads to accurate results. The method of solution is 
valid for any values of 89 and K. 

2. The odd eigenvalues listed in Tables 1 to 4 take 
values between those of the even eigenvalues. The even 
eigenvalues check well with those reported in [5]. The 
numerical eigenvalues of BY and We for the case Of Pe = 


and Ha = 0 also agree with the corresponding equivalent 
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3. For the present formulation including viscous 
dissipation effect, the entrance condition of uniform fluid 
temperature at x = 0 must be regarded as an approximate one. 
Consequently, numerical calculation is not made for Pe < 10. 
In this respect, the present numerical results as well as 
the published results [2,5,8] must be understood under this 
light. In general, if one includes both viscous dissipation 
and axial heat conduction effects in the classical Graetz 
problem (thermal entrance region problem), even the entrance 
condition of uniform fluid temperature at x = -~ must be 
regarded as an approximate one. In the physical problem, 
the specification of uniform entrance temperature and the 
inclusion of viscous dissipation effect in the problem 


formulation are seen to be incompatible to some extent. 
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4. The present solution serves as a basic flow solu- 
tion for thermal instability of Hartmann flow in horizontal 
parallel-plate channel heated from below which will be 
discussed in Chapter VII. 

5. Within the range of parametric values studied, 
thermal entrance length does not appear to be affected by 
magnetic field up to Ha = 10. It is noted that the heat 
transfer results are independent of Prandtl number. In this 
study, the numerical computation is limited to Ha < 10 in 
order to check the even eigenvalues against those given in 
[5]. However, no computational difficulty is expected for 
Ha > 10. One notes that the influence of the flattening 
Hartmann velocity profile on heat transfer continues with 
further increase of the Hartmann number. The flat velocity 
distribution for Ha +> » or slug flow is practically 


approached at Ha = 20. 
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CHAPTER VII 


THERMAL INSTABILITY OF HARTMANN FLOW IN THE 
THERMAL ENTRANCE REGION OF HORIZONTAL PARALLEL- 
PLATE CHANNELS HEATED FROM BELOW 


The onset of instability in the form of longitudinal 
vortices for fully developed Hartmann laminar flow in the 
thermal entrance region of horizontal parallel-plate 
channels is investigated by a numerical method for the 
case with a uniform vertical magnetic field and heating 
from below. Numerical results are obtained for Pr = 0.7, 
O01, Pe = 10, 100, Sty = cee 2) ya BE ya airpens erp ed RE 
The effects of Prandtl, Peclet (axial conduction), Brinkman 
(viscous dissipation and Joule heating) and Hartmann numbers 
on thermal instability of magnetohydrodynamic flow are 


studied. 


199 


4 er ont. i TA: 

| Ae tees 
peer er 40 an i at ‘wt 

edt of wolt Tent ; bs 

atetqetot fer 

o, wat eens hie UNL 8, 
eon ns bret? >henps | 

6.0 # AG 10% -beatsddo ray 

oF r 7 at a her eS 

dbnant +e” s{not43ubn0o fatxs) 

aredmun nnvend tee bas tbnesead « 


gtk aeth > soyborbuidod me 
ES Yee 


ad 


Br 


o| 


Gr 


Ha 


cq] 


| 


200 


Nomenclature 


dimensionless wave number 


magnetic field induction vector, 
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Brinkman number, u Uo/(k8.) 


dimensionless perturbation vector of 
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velocity vector (Vi +eVh)}3 tbhastic velo< 
city vector (U, 0,0) and perturbation 


velocity vector (U',V',W') 


Cartesian coordinates with origin at 


lower plate 
dimensionless coordinates 
transformed coordinates, x/Pe,z = z 


dimensional and dimensionless transverse 
coordinates with origin at centre of 
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thermal diffusivity 

coefficient of thermal expansion 
even and odd eigenvalues 


dimensionless perturbation, basic flow 


and entrance temperatures 


characteristic temperature difference 


(To - T,) = (T, - T,)/2, and dimension- 


less fluid temperatures defined by eq. (7) 
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electric conductivity 


viscous dissipation function 
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1, 2%6 = dimensionless basic velocity and tempera- 


ture profiles, U/U., and (T, = T,)/AT 
Me = dimensionless stream function 


AT ene C1) Miers Ey ~20.. 


9) 
Superscripts and Subscripts 
= perturbation quantity 


+ = amplitude of disturbance quanity 


‘a = transformed perturbation variable or 


critical value 
b = basic quantity in unperturbed state 
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7aW Tntroddcettion 

In recent years, the problem of the laminar forced 
convection for fully developed MHD laminar flow in the 
thermal entrance region of a parallel-plate channel has 
been studied by many investigators for the thermal boundary 
conditions of both uniform wall heat flux and constant 
wall temperature. The literature on the subject is well 
reviewed in [1,2] and in Chapter VI. It is known that when 
a horizontal fluid layer is subjected to an adverse tempera- 
ture gradient, a top-heavy situation results and the system 
is potentially unstable due to the buoyancy forces. With 
a superposed fully developed laminar flow between two hori- 
zontal flat plates, heated from below, the onset of the 
secondary flow in the form of longtiudinal vortices [3-7] 
is characterized by a critical Rayleigh number. With the 
appearance of the vortex rolls, the flow takes on a three- 
dimensional character and the heat transfer rate is expected 
to increase with the Rayleigh number. Thus, it is of prac- 
tical interest to determine the conditions for the onset 
of secondary flow. 

The effects of a vertical, uniform magnetic field on 
the thermal instability of horizontal stationary fluid 
layers were studied theoretically by Thompson [8] and 
Chandrasekhar [9,10] and experimentally by Nakagawa [11-14]. 
The thermal instability of a magnetofluid in a vertical 
rectangular channel heated from below was investigated by 


Yu [15] quoting the related references. The thermal instabi- 
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lity of a Hartmann flow in the thermal entrance neg ion: of 

a horizontal parallel-plate channel with heating from below 
does not appear to have been studied in the past. The pur- 
pose of this study is to determine the conditions marking 
the onset of longitudinal vortex rolls in the said passage 
Where the two plates are maintained at uniform but different 
Surface temperatures. The present study can be regarded as 
a first step toward investigating the change of heat trans- 
fer rate due to the thermal instability for a Hartmann flow 
and represents an extension of the thermal instability 
problem for a confined horizontal fluid layer studied by 
Thompson [8] and Chandrasekhar [9.10] to the case with a 
Superposed fully developed laminar flow. The basic velocity 
and temperature fields in the thermal entrance region of 

the channel required for the present thermal instability 


analysis are reported in Chapter VI. 


7.2 Formulation of the Thermal Instability Problem 


7.2.1 Basic Flow and Temperature Fields 

Consideration is given to a Hartmann flow between two 
horizontal flat plates under the action of a homogeneous 
transverse magnetic field By and heated from below. The 
basic equations of motion, of Maxwell, and of energy appropri- 
ate to the thermal entrance region heat transfer problem 


[3] are: 
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energy equation (4) and the coordinate system is defined in 


Fig. 1. The boundary conditions are: 
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[16] for equation (2) and the solution of energy equation 
(4) considering both the viscous dissipation and axial con- 


duction effects can be written as 
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ps Ha(cosh Ha - cosh Ha z')/(Ha cosh Ha - sinh Ha) 
= C,(cosh Hap=— cosh» tlamz.) (6) 
Cas Oe(z ) + 0,(x.z') (e74) 


where Ory = z' + Br[(¢4/4) (cosh 2Ha - cosh 2Ha z') + 


2 C,C,(cosh Ha - cosh Ha z) + (cs Ha2/2)(1 - a Na C, = 
Ke> Gy cosh Ha, 6. = b CAE AZ )exp(-B8 x) + ay DO,(z ) 


exp(-y,x). The details of the infinite series solution for 6 
are given in Chapter VI and the expression for 6 is given 
Nerestor reference plrpose only. @Atsthis point, it is con- 
venient to shift the coordinate origin to the bottom plate 
for the instability problem and one obtains z = 5 (CZueee|;) 


and the developing temperature profile Bas 5 (1 - 6). 


iecwcamPerturba tion EqQuatvions 

In order to study the thermal instability concerned 
with the onset of secondary flow in the form of longitudinal 
vortices for the horizontal Hartmann flow heated from below, 
the perturbation quantities are superimposed on the basic 


quantities as 
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b X 0 y Z b 
= (b, »by »By ify '8) (8) 
Poa bd, MPa, Plea) 


The above perturbation quantities are considered to be in 
the steady state and are of a function of space variables 

X, Y and Z only. After applying the linear stability theory 
and using Boussinesq approximation, the perturbation equa- 


tions become: 
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a ai on Oe) mens BOV'): jy Swerron :) 3 BAU 
- Ub, ye J, = o(e + Unb ) (14) 
View ola. Oh VX e's =u0 se iver bilwc=m0 8. VX bile eal (15) 


where Vo = 9¢/ax2 + a¢/ay? + 9%saz2. 


Introducing the following non-dimensional quantities 


and physical parameters, 
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and noting that UL = U To = (AT) O45 Jo = oB Ud = 


0 
oByU_ (kK ~ o)> ATse= (Ty - To) = -20; the perturbation equa- 


tions become 
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2 and V are 


Here it is understood that the operators V 
dimensionless. 

After eliminating u, v, peand using continuity equation, 
the three momentum equations can be combined into a single 


equation as 
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From equations (20), (23) and noting further that for 
vortex-type instability d9p/ax = 0, one has 7 unknowns u, 


Wy eC D b_, Jj, and e|. Consequently, one needs addi- 


y y 
tionally one momentum equation, Ohm's law, two magnetic 


induction equations and one electric field equation as 


follows. 
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The boundary conditions are 


460 =.0 jpat Z, = Opl, aUrigid walis) 


j. = 0 at z= 0,1 (non-conducting walls) (29) 


a atakan 5 ie on wos 
~tbbs 2bsen sno, 

f otianpsm ows ¢ ie 2'ad0 + AC 
ze notinups bfatt strgoste 30 bas, 2 


as wie oe hs iF 


7 & 7 7 Ae) 
(#8) + dle - ate one AS - 
~ ‘ ni ae 
F ‘ a 4 . A ear 
83) BP a ee 
ne et.al, © ey pu ee a 
(as) : (.4 eat + 2S yWAs ™ x yt 98s a 


| | ough a ae a a 2 
(8s) ws mas « ard . oy! mas. ~ | 
4 pes 


(gs) bbe 08 


ates 
toa 


oi ies a 
eb | Gite n , af ex. ‘ ‘aed ” f 7 
ee a ton a | : ¢ : 


212 


For the disturbances in the form of longitudinal 
vortices, one may assume the disturbance form hehe. = 
fulz ebay for the disturbance quantities. The set of equa- 


tions then becomes: 
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Where D°="d/dz, v"°= p? - as and vs = Sa oe A study of the 


electromagnetic boundary conditions is now in order. When 
the magnetic Reynolds number Rm is very small, an order of 
magnitude analysis reveals that the right-hand sides of 
equations (34) and (35) can be neglected. From Maxwell's 
equations and equations (34), (36) and (29) it can be shown 
that e. = oH = eur = b” = 0 for the whole domain and the 
details are given in Appendix IV. It is convenient to 
introduce the transformations x = Pex, z = Zz, u’ = Reu*, 
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equations (38) and (40) can be neglected [17] entirely in 
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comparison with the other terms. Thus, one sees that the 
present eigenvalue problem can be solved independently of 
the boundary conditions on the magnetic field. The physical 
parameters are seen to be Pr, Pe, Br, Ha and Ra. The 


boundary conditions are 


Lt ise instructive. cosnote: thats tne .tenm Aa’Rao* in 


equation (37) represents the effect of buoyancy forces and 
is balanced by the viscous term (p2 - aie 


force term (-4Ha’Dcw*). 


w* and the Lorentz 
In equation (38) the inertia term 
w* > /9z is caused by the coupled effect of upward disturb- 
ance velocity w* and the vertical gradient of basic velocity 
profile function and is seen to be balanced by the viscous 


term (D2 - a°) 


u* and the Lorentz force term (-4Hacu*). 
Furthermore, in energy equation (39) there are two convec- 
tive motions; one is the convective term caused by the 
coupled effect of velocity disturbance u* and basic tempera- 
ture gradient 9 4 / 9x in the main flow direction, and the 
other is the convective term caused by velocity disturbance 
w* and the basic temperature gradient 9>,/92Z in the vertical 
direction. It is seen that the two convective terms, a 
viscous dissipation term (Br-Re/Pr - do /dz - Du*), and a 
Joule heating term [(Br/Pr) -: (-4Ha?(K - ody" are 


balanced by the conduction term (D2 - a“)ox, Equation (40) 
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Shows that the current disturbance amplitude in y-direction 
is simply equal to the negative velocity disturbance ampli- 
tude in x-direction. One also notes that the terms involv- 
ing Hat are preceded by a negative sign suggesting that the 
transverse magnetic field has a stabilizing effect on the 
instability. Without the effects of magnetic field, Joule 
heating and viscous dissipation, the present thermal instabi- 
lity problem reduces to that studied in _ Gy mekiorsigiven 
values of Pr, Pe, Br and Ha, one is interested in determin- 
ing the minimum critical Rayleigh number and the correspond- 
ing wave number for the onset of instability as stationary 
longitudinal vortices through the solution of equations 


(3i7o)s nto m4 )y. 


7.3 Numerical Solution 

In view of the expressions for the basic velocity and 
temperature profiles, an analytical solution of the char- 
acteristic value problem is apparently not practical. A 
finite-difference method using an iterative technique is 
used for the simultaneous solution of the disturbance equa- 
tions [6]. Using the higher order finite-difference scheme 
due to Thomas [18], equation (37) and its boundary condi- 
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for a set of algebraic equations and two tridiagonal systems 
result from equations (38) and (39) and their boundary condi- 
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coupled set of equations (37) to (41) can be carried out by 
using an iterative procedure consisting of the following 
main steps: 

1. At a given axial position x, a value of the wave 
number a is selected and an eigenvalue Ra is assumed. The 
disturbance velocity wp* is taken as Wes = 2(1 - k/M), 
kK = 2,3,...,M to conform to the primary mode of disturbance. 

2. The finite-difference solution of equation (38) 
then yields uL*. 

3. After knowing wp* and UL *s equation (39) is solved 
to obtain o,*. 

4. Since the right-hand side of equation (37) is now 
known, new value for wy* can be found. 

5. An improved eigenvalue (Ra), aw can be computed 


by using the following equation[19]. 
2 2 
(Raney = (RA gigLl (me) org]! dA CRs gad (42) 


The magnitude of the quantity Ww, * is readjusted by the 
following equation in order to return to the Original order 


of magnitude for computation. 


WK . Cog Fee (Ra) i ay/ (Ra) aig (43) 
6. The steps (2) to (4) are repeated until the follow- 


ing prescribed convergence criterion is satisfied. 
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It is found that only a few iterations are required to 
satisfy the above condition and five significant figures 


are found to be correct for critical Ra. 


7.4 Results and Discussion 

Before presenting the numerical results s1tcets we li 
to note that the basic fully-developed velocity profile oy 
depends on Ha only and the basic temperature profile 5 is 
a function of the parameters Pe, Br and Ha and is independ- 
SiiteOterr.. Ihe ctypTcal =protilesm tor b, are shown in Chapter 
VI. In the perturbation equations (37) to (39), only two 
prescribed parameters Pr and Ha appear. The numerical 
results will be presented in such a way to illustrate the 
effects of the aforementioned physical parameters on thermal 
instability. 

The effects of the Hartmann number on disturbance pro- 
files w*, 6* and u* are shown in Lose derancderce respectively, 
for fully developed condition (x = 10) with Pr = 0.7, Pe = 
10 and Br = 0,-1. From the normal modes of the disturbances 
and the definition of the stream function v = 9¥/9z, w = 
-d¥/oy, One obtains ¥v = (iw*/a)el ay and one may compute the 
Stream function ¥ by noting that physical meaning is 
attached only to the real part. The results are shown in 
Fig. 3. In Figs. 1, 2 and 3, the magnitude of the maximum 


disturbance quantity is taken to be one. The neutral 
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stability curves for Pe = 10, Pr = 0.01 and 0.7 are shown 
in Figs. 4 and 5, respectively, where one may see the 
effects of Hartmann and Brinkman numbers clearly. 

The effect of Peclet number on critical Rayleigh 
numbers Ra* along the axial coordinate x is shown in Figs. 
OS8toeo iwi thohrt=<0-. 01, PO AnandeBpri= OS P21 efoOnelarai0), 72086 
and 10. In Fig. 6 (Ha = 0) with Pr = O77, 8 tihe.cri tical 
Ra* is seen to decrease monotonically with x until an 
asymptotic value is approached. On the other hand, with 
Ramses Oh and Brysesliva Vocal maximum value for Ra* exists 
at a certain axial location before reaching the asymptotic 
value. Furthermore, the region near the thermal entrance 
(x = 0) is seen to be more unstable than the region near 
the fully developed region (x >e10)!. forse Sooo] #7 tit tie 
found that the curve for Pe = 100 can be regarded as Pe = o 
Practically. The merging of the two curves for Pe = 10 
and 100 at some axial position Signifies the disappearance 
of the axial conduction effect. With Ha = By f= 00), *thie 
asymptotic value of Ra* = 213.47 which is independent of 
Prandtl number agrees with the well-known value of 1708/8 
for the Benard problem. This can be explained from the 
perturbation equations. For fully developed flow, 94 / 9x = 0 
in equation (39) and with Ha = Br = 0, equations (37) and 
(39) become identical with those of the Benard problem. 

It is difficult to explain the reasons for the occurr- 
ence of the local maximum for Ra* in the thermal entrance 


region as noted earlier. Considering the case with Ha = 0, 
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it appears that the cause for the phenomenon is due to the 
combined effect of the convective term (u*/Pr)do,/9x and 

the term involving Br on the right-hand side of the perturba- 
tion equation (39). Noting that the basic profiles o, (2) 
and 9 (X»z) are independent of Pr, one may conclude that the 
relative magnitude of Pr and Br also plays some role lead- 
ing to the occurrence of the phenomenon. a COSeae/ mc Omg 
reveal that as the value of Ha increases, the phenomenon 
becomes less appreciable. The effect of the Hartmann 

number on the asymptotic value of Ra* is of interest since 
for the fully developed flow, one has 3b / 9x = 0 and the 
perturbation equations (37) and (39) become identical with 
those of Chandrasekhar [9] when Br = 0. It is found that 
the present asymptotic results with Br = 0 agree with those 
of [9]. From Fig. 6 to 9, it is seen that with the increase 
of Hartmann number, the effect of Brinkman number on the 
asymptotic value of Ra* becomes less appreciable. Figs. 

10 to 13 show clearly the effects of Ha and Pr on the 
distribution of Ra* along the axial direction x for given 
values of Pe and Br. The present investigation shows that 
magnetic field has a stabilizing effect and the decreasing 
Prandtl number has a destabilizing effect in the thermal 
entrance region. The effects of Ha and Br on the distribu- 
tion of Ra* along x are shown in Figs. 14 to 17 for given 
values of Pe and Pr. For reference, the distributions of 
the wave numbers a* corresponding to Fig. 14 and 15 are 


shown in Fig. 18 and 18, respectively. 
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7.5 Concluding Remarks 

1. The analysis [9] on thermal instability of a 
horizontal fluid layer confined between two rigid plates 
subjected to a vertical uniform magnetic field is extended 
to the case with main flow (Hartmann flow). The present 
analysis includes the axial conduction, viscous dissipation 
and Joule heating effects. 

2. The numerical results are obtained for Pr = 0.7 
(air), 0.01 (liquid metal), Pe = 10, 100, Pom Bye. 0 5 bs 
and Haé= 0 fs2nc6 2010 withek = land. = +1 only. The case 


0 


with K 1] signifies the open circuit condition and 85 = ] 


means To = Ty (entrance temperature is equal to upper plate 
temperature). At Br = -1, the viscous dissipation effect 

may be considered to be appreciable. It is found that the 
axial conduction and the magnetic field have a stabilizing 
effect and the effect of Brinkman number appears to be 
dependent upon other parameters such as Ha and Pe. It is 
observed that the combined effect of Prandtl and Brinkman 
numbers in the perturbation equation (39) may lead to a 
locally stabilizing effect in some region of the channel 
before the fully-developed region. 

3. For high Prandtl number fluid, the flow is more 
stable in the thermal entrance region than in the fully- 
developed region, but the opposite is true for small Prandtl 
number fluid. However, the Brinkman number has a destabi- 
lizing effect in the fully-developed region. When Pr is 


small, the critical Rayleigh number does not change appreci- 
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ably throughout the whole entrance length@atesayvenae=1 0" 

4. The accuracy and convergence of the numerical 
Solution are checked by comparing the present numerical 
results with those reported in the literature for the limit- 
ing cases [6,9]. 

5. The present instability results are useful in 
predicting the onset of longitudinal vortex rolls in wide 
horizontal rectangular channels and the complete numerical 
results for Ra* and a* are listed in Table 1 to 3. 

6. As noted in Chapter VI, for low Peclet number 
flow regime with viscous dissipation effects, the entrance 
condition of uniform fluid temperature at x = 0 must be 
regarded as an approximate one. Consequently, numerical 


calculation is not made for Pe < 10% 
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Fig. 4 Neutral stability curves for Pr 
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Fig. & Neutral stability curves for Pr= 0.7, Br = 0.=1 and 
Ha = 0,2,6,10. 
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CHAPTER VIII 


MAXIMUM DENSITY EFFECTS ON THERMAL 
INSTABILITY INDUCED BY COMBINED BUOYANCY 
AND SURFACE TENSION 


Nield's linear stability analysis (1964) for a 
horizontal liquid layer considering surface tension and 
buoyancy effects is extended to the case of water with 
maximum density effect for the temperature range 0 - 30°C. 
Two thermal parameters (A) > ho) and three physical para- 
meters (Bi, Ra, Ma) appear in the analysis. Typical 
results are presented for the cases involving heating from 


below and above. 
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Nomenclature 


temperature difference ratio, 


(T, q Tax)/td 

dimensionless wave number 

Biot number, qgd/k 

liquid layer thickness 

gravitational acceleration 

thermal conductivity of liquid 
number of divisions for liquid layer 
Marangoni number, 09 (AT) d/ (ua) 
pressure 

dimensionless perturbation pressure, 
P'/(ppav/d*) 

rate of change with temperature of the 


time rate of heat loss per unit area from 


free upper surface 
Rayleigh number (see equation (10)) 


temperature, lower plate temperature, 


free surface temperature, respectively. 
time 


perturbation velocity components in 
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U,V 4W = dimensionless perturbation velocities, 
(U,V,W)/(a/d) 

NN bate = rectangular coordinates 

XB Vigz = dimensionless coordinates, (Xe Venza) 70 

a = thermal diffusivity 

B = coefficient of thermal expansion 

eEae, = temperature coefficients for density- 


temperature relationship 


6 = dimensionless temperature disturbance, 
Cee/ Au 

u = SV US COSdLY. 

Ayor»o = thermal parameters defined in equation 
(9) 

v = kinematic viscosity 

P»Pq = density, reference density 

o9 = negative of the rate of change of sur- 


face tension with temperature 


ae = vertical temperature gradient, 
(T, - T,)/d 
ANN = temperature difference, (T, - T,) = td 
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8.1 Introduction 

In recent years, experimental investigations on the 
onset of convection in a horizontal water layer have been 
reported in the literature for the thermal conditions 
involving both melting [1-4] and formation [Mio lof ices 
In these studies, the water layer is characterized by 
Stable upper region and potentially unstable lower region 
Separated by an interface with maximum density at 4°C and 
by continuously changing layer thickness. Theoretical 
studies on thermal instability of a horizontal liquid 
layer with maximum density have also been presented for 
various boundary conditions corresponding to rigid and free 
Surfaces [6-10]. Previous theoretical and experimental 
investigations on thermal instability with maximum density 
effects are confined to Rayleigh problem only where the 
driving force for convection is buoyancy force. For thin 
forizontal liquid layers with an Upperetree’ surface, ite is 
known that the onset of convection can be induced by surface- 
tension gradients [11] and buoyancy forces [12,13]. 

The purpose of this study is to determine the stabi- 
lity criteria for the onset of cellular convection driven 
by surface tension and buoyancy force in a horizontal thin 
liquid layer by considering the density inversion effect 
for water using a cubic temperature-density relatvivonshagn 
The lower boundary is taken to be rigid and thermally con- 
ducting while at the upper free surface Pearson's boundary 


conditions [11,12] are imposed to facilitate the analysis. 
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With the maximum density effect, the liquid layer can be 
unstable regardless of whether heating is from below or 
above. The physical model in the present instability 
analysis is patterned after that of Nield [12]. The maximum 
density effect for water temperatures ranging from 0 to 

30°C of primary concern in this study. The temperature 
regime under consideration may be observed under northern 
climatic conditions. The results of present analysis may 

be used in assessing the importance of cellular convection 
in the growth and decay of ice in contact with a thin water 
layer. The incorporation of the maximum density effect in 
instability analysis on buoyancy and surface-tension induced 
cellular convection does not appear to have been considered 


in the past. 


8.2 Formulation of the Thermal Instability Problem 
Following the known procedure for linear stability 
analysis [10,14,15] and referring to the coordinate system 


SNOWNInehid. 3, the perturbation equations can be written as 
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ONG. epeleors 2 é0 

yt Pp az eevee = rye (4) 
36! : 
at pc nye” oe) 


where Tein = ae pax? + 3¢ say? 1 347? and the perturbed 

quantities for temperature, pressure and density are defined 
by T = TZ) stare O(c Xen) eet ee eae me tp ednds One P, 
respectively. As shown in foie the boundary conditions at 


TO Oi.4 


the lower boundary are 


W= 0, 4-0 and 6'=0atZ=0 (6) 
while at the upper boundary 
Ge ee ag SE 
9Z 9X aY 
Lik ie = qo! at Z = d (7) 


The density-temperature relationship for water can be 
approximated by the following equation for the temperature 
Ganges 0Omtow30. © i 10 |= 


awe a TO coaty telat Tec s sg aay MT) ha aed) J (8) 


aes 
(R)v4 : 
ahs 
fa) wel nee We i 


Laie 


if | Ye be sboumesl ae 
beavusnen eft bos. ie + Sree chats 


qd * 
Ni ang Ae) af. 
ts gnotttbno> 5 aut a tsi nt shal 2A an: 
ray yh “ONE “yisbmuod 4 of of 
4 -. ; nd Sed - ft - * aa ie ; 
zs 4 ‘ : 9 
(a) 9+ S95 0218 bnb OO eg 0 = nee 


i uisbnudd Lilie ony te) fi 
straw ae alae tie # - 
Ss mies yes enh 
wos ES + ED EE rnd 
os ey, ‘i - a i ae a a - 
(%) 
~ . a 
ad 89 yedew bait 1 | 
BA! am 
ratensanes ond 9 tyke 


by 
rT a x 
em ae: Ss ke , j | 
‘io se Ws 
‘ 7 7 € i a be 
) \ , 7 


Zon 


Considering the change in the density Sp caused by the 
temperature perturbation 6', one obtains the following 
expression after neglecting the terms containing (o')¢ or 


higher order. 
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A = (Ty Cer ALD and AT = Ty - T, = td. The thermal para- 
meters dy and do were first introduced by Sun, Tien and 
Vera tole 
Introducing the dimensionless variables (X,Y,Z) = 
Cixi ve Zw CU ss M) oes (ON) (Wve) yo) Pale (ppav/d*)p, eS 
(AT)6, and eliminating u,v,p by using continuity equation, 
one obtains the following perturbation equations by assuming 
tnee principle of exchange Ofestabtlity to be valid [10,15]. 
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where Ra = g(2y,AAT)(AT)d°[1 + (375/271) (AAT) ]/(va) » 


ve = af saxe + a%say? + 92 /az% and ve = affax” + ao say’. 
The boundary conditions are 
_ xown 2 = = 
WF Oe = 80fa taiz = 20 (172) 
tar 2 00 
We= 0, 5 = Ma Vj8 and) = - Big at z=" Uhsiy; 
aZ 


where Ma = 0) (AT) d/ (ua) = Marangoni number and Bi = Ggd/K = 
Biot number. In contrast to the classical Benard Problem, 
the onset of convection is possible with heating from below 


Or above because of the presence of (ATY@ 


in the expression 
for Rayleigh number. Since restriction is made to the case 
where instability first appears in the form of cellular 
convection rather than oscillations associated with over- 


stability, the following normal modes can be assumed for the 


disturbance quantities. 


[w,6] = [Ww (z),0°(z)] expLi(a,x + a,y)] (14) 


SUDSit1tuUtINg equation (14) into equations (10) and (11). 


one obtains 
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where D = d/dz and a = (ay + a.) is the wave number of 


the disturbance. For the limiting case Ma = 0 and Bi =», 
the present eigenvalue problem reduces to that discussed 

by Sun, Tien and Yen [10]. When Ra = 0, the problem reduces 
to that solved by Pearson [11]. The limiting values Bi = 0 
and © correspond to constant heat flux and constant tempera- 
ture and the surface is usually referred to as sinsulatings 
and "thermally conducting" respectively. For given thermal 
boundary conditions (given has ho and Bi) and a given 
Marangoni number Ma, the neutral stability relations give 

Ra as a function of a and the critical (minimum) Rayleigh 
number is sought. Conversely when Ra is known, one can 
determine the critical Marangoni number and the correspond- 
ing wave number. Apparently, the present problem can be 
Solved by analytical method [10,12,15,16] as well as finite- 
difference method. 
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ch Paes ae 


i y Tae 
(NF) ) 0 = se35.0'* tes Maainsty 7 


=) @ 
Ve 


aah 
(80) f = s 35 *ord + * “ea OR) “ei ne. a an 


2 a 
~ ; a oe 
’ / | $\ 
to isdmul oyew add 2f Sy + +8) * . 5 5 bas au ren 
o « {8 bes 0 = 5M enz-onta tat! odd 707 donee 
haeewoeth ted? of, ea2vbex maf dovg, guisyagpts, ne 


egouber motdovq oft 40 = BF nodW. Lor}. ney bun ety a - ty i 


o = +8 eoulas pardimtt oat ..C1TY, pogvsat tg, DERE om - 

sreqmes dnstenoa be xus? ts9q 4nsd 2709 09 REET, 
“ontistuant” 29-09 bevvatet WiTsuep. at gastiwe on J a 
femvens, cavie Ty -“lovisoagzay "ont saubupe yifemt 
novte 6 bas (tS baa gh oh movtD) ant stbno> ¥ = 


avip 2notistet wit ttdade feituen oft «6M -vedmun te 
dptofyes (mumintm) taatyt19 ant bas 'p to etait «: 


n6> sno ,AWond at eh naiw & mone sin i 


~bnogeat102 ons bas yedmve 


sd nea metdova ; iq ods we 
-9stat® 26 Phew Desist: aioe - 


a] 


¢t 


260 


[17,18] and the iterative solution starts with equation (11) 
by using We = sin(2rk/M), k = 2,...,M for the disturbance 
velocity w The mesh size used is M = 50 and a new and 
improved eigenvalue Ra or Ma is calculated by the following 


equation [19]. 
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The convergence criterion is 
} cae (He oral 45 GN pee) rics) Oe (20) 


It is found that only a few iterations are required to 
satisfy the above criterion and five significant figures 


for critical eigenvalue are correct. 


8.3 Numerical Results and Discussion 

Because of the number of parameters involved, only 
typical numerical results can be presented here. The thermal 
condition parameters has ho depend on A as well as AT = td. 
For the temperature range (0 - 30°C) under consideration, 
A is always positive and hy is always negative. Further- 
more, the temperature coefficient vy (positive) is of order 
re Ste Shik expression 
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and positive for heating from above. In addition, the 
unstable liquid layer is always confined to the region near 
the bottom plate and instability occurs only when Ber tay 
for heating from below and when Ty < 4°C for heating from 
above. 

Figs. 1 and 2 show neutral Stability curves for various 
cases and the effect of the parameter can be seen clearly. 
The limiting cases of Ra = 0 and Ma = 0 corresponds to 
Pearson problem [11] and Rayleigh problem, respectively. 

The distributions of eigenfunctions vd and @° are shown in 
hang. W3irf Oe iMad a= .1:0', dy = -1.5, 4, = -0.2 (heating from below) 
with Biot number as parameter. It is seen that the curves 
are quite similar in the lower region up to the location 

z where the value is maximum. Near the upper free surface, 
the Biot number effect is quite appreciable particularly 

hO'K fe: The disturbance profiles for dy Ses ho = 0.4 
(heating from above) and Bi = 100 are shown in Fil Giy (4eaaeWG th 
Ma = 0, the disturbance quantity becomes negative. Other- 
wise the curves for Ma = -30 and -1000 are similar. 

The relation between critical Marangoni number Ma* 
and Rayleigh number is shown in Pign” 5 “for®ayrangelof Biot 
numbers with hy = -1.5 and ho = -0.2 (heating from below). 

As Bi increases, the critical Marangoni number also increases 
Supporting the physical explanation given in [al2eee hovemtme 
case of conducting free surface (Bi = ~), Falsg 208 1st 
rates the variation of the critical Rayleigh number Ra* 


with the Marangoni number for a range of Biot numbers with 
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AGP IZ5.and No = 0. The general trend is similar to 
that shown in Fig. 2 of [13] which corresponds to the 
limiting case without maximum density effect. For smaller 
Biot numbers, the Marangoni effect is seen to be appreci- 
able. As explained in [12], the critical Rayleigh number 
for a fixed value of Ma is clearly seen to be an increasing 
function of Bi. The expression for the thermal parameter 
Yo reveals that do = 0 when ¥5 S10 (parabolic density- 
temperature relation valid for temperature range 0 ~ 8°C) 


or T, = vs For given values of Marangoni number, the 


ax- 
relation between critical Rayleigh number Ra* and Biot 
number is shown in Fig. 7 for hy = -1.5 and ho = -0.2 (heat- 
ing from below). At.Bi = 10°, the asymptotic value Ra* = 
AO28e41isdréachedsy in interpreting the behavior of the 
curves for Ma = 100 and 1000 at the other end, it is useful 
to note that for a given Marangoni number a critical value 
of Ra* does not exist below a certain value of Bi as shown 
in Fig. 6. Similar plot for the case of heating from above 


Withedx,5=t-2.0cand X45°= 0.4°is shown in Figtesrem0nekalso 
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notes the existence of the asymptotic value for Ra* at 

Bire 10°. Selected numerical instability results are listed 
in Tables 1 and 2 for future reference. For the case when 
buoyancy effects are negligible (Ra = 0), the values of the 
critical Marangoni number and the corresponding wave number 
agree excellently with those listed in [12,20] for various 
values of Bi. On the other hand, with Ma = 0 and Bi = es, 
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Ra* = 7027.86 and a* = 2.987 listed in [2 18) Por "Bi, =) eon 
Thus, one may conclude that the present numerical results 
are sufficiently accurate (five significant figures are 
correct). 

Nield [12,25] concludes for the case of linear density 
variation that the coupling between the buoyancy and sur- 
face-tension effects is surprisingly tight for all values 
of Bi and especially tight for Bi = 0. It is instructive 
to compare the present results considering maximum density 
effects with those shown in Figs. 1 and 2 of Piz.jieethe 
comparison is shown in Figs. 9 (plot of Marangoni and 
Rayleigh numbers for marginal stability) and 10 (plot of 
Wave number corresponding to marginal stability against 
normalized Rayleigh number). Fig. 9 shows that with maximum 
density effect the coupling is rather weak and the Biot 
number effect is characteristical ly different. Furthermore, 
Nield's result [12] shows that the form of the relationship 
between Ma and Ra is a rather weak function of the Biot 
number but this is not so for the Present problem. As noted 
by Nield [12,25], the departure of an actual curve from the 
Sstratght ines Ra/Ra. ar Ma/Ma. = 1, representing perfect 
coupling, is a measure of the amount of uncoupling. Ra. is 
the critical Rayleigh number corresponding to Ma = 0 and 
Ma. corresponds to Ra = 0. In Fig. 10, one sees that when 
the free surface is SINS UlAting= 4 CB I=sO)iy the coupling is 
especially tight for the case of linear density variation 


[12] but the dimensionless wave number for the present 
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problem varies considerably as the value of Ra/Ra. increases 
From*0*to ll’ Fig.°10' also°shows ‘that® larger cells “or 
smaller wave numbers are associated with the insulating 
GaSePbte=907 *SAt  thisspointserig. 93 “also stipports the 
observation that with an insulated boundary it is easier 

for temperature perturbations to be set up [12]. As Bi 
increases, the corresponding wave number increases and the 
size of the convection cell decreases. 

Streamlines in Benard convection cells induced by 
Surface tension and buoyancy are given by Nield [22]. The 
streamlines in the two vertical planes of symmetry of a 
hexagonal cell at the onset of convection are shown in 


Fig. 1fe(a)and O(b)eroren® =) -Troseny, Sauco 428 Mais Toad 


1 2 

Bi = 100 by using equations (4) and (5) of [22]. In Fig. 
11, the left-hand margin represents the cell boundary and 
the right-hand margin corresponds to the cell centre. In 
contrast to the streamline patterns shown in [22], the eyes 
of the streamlines are seen to be located nearer to the 
lower rigid plate. Fig. 3 also shows that the maximum 
vertical disturbance w is located nearer to the bottom 


plate. One notes that for the present problem the unstable 


layer is situated near the bottom plate. 


8.4 Concluding Remarks 
1. The physical model [12] assumes that the free upper 
liquid surface remains undeformed. Nield's linear stability 


analysis [12] considering surface tension and buoyancy 
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effects has been confirmed by experiments [23,24]. The 
limitation of the assumption that departures of the upper 
surface from a horizontal plane are negligible as well as 

the possibility for oscillatory instability is well discussed 
by Nield [25]. Future analysis should include surface 
viscosity effect and surface deformation pointed out by 
Scriven and Sternling [26]. 

2. The case of heating from above may have direct 
application in surface melting involving ice layer ona 
lake or pond. The present analysis can be used in predict- 
ing the onset of convection for a thin liquid layer on ice 
driven by surface-tension gradients and buoyancy forces. 

3.) Withinathe scope of present study, a full para- 
metric study of the problem is not practical since two 
thermal condition parameters (A, do) and three flow para- 
meters (Bi, Ra, Ma) appear in the analysis. The graphical 
results presented are useful in assessing the effects of 
Bi, Ra and Ma on the onset of instability. | 

4. The Biot number effect is similar to that dis- 
cussed in [12]. The detailed physical explanation given 
in [12] provides further insight into the role of maximum 


density in the present instability problem. 
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Fig. 10 Variation of dimensionless wavenumber a with normalized 
Rayleigh number Ra/Ra. with Bi as parameter for dy = -1,5 
and ho = -0.2 
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CHAPTER IX 


THERMAL INSTABILITY OF BLASIUS FLOW 
ALONG HORIZONTAL PLATES 


The thermal instability of laminar forced convection 
flow along a horizontal semi-infinite flat plate heated 
isothermally from below or cooled isothermally from above 
is investigated for disturbances in the form of stationary 
longitudinal vortices which are periodic in the spanwise 
direction. The analysis uses non-parallel flow model 
considering the variation of the basic flow and temperature 
fields with the streamwise coordinate as well as the trans- 


verse velocity component in the disturbance equations. 


The critical values of the Grashof number Gr = at, /Res!* 
are obtained for Prandtl numbers ranging from Tue to yen 


The Prandtl and Reynolds numbers effects on vortex-type 
instability for Blasius flow along horizontal plates are 


clarified. 
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Nomenclature 


wave number, 27/d 
d/dn 
(nfs f)/2 
dimensionless stream function 
gravitational acceleration 
eigenvalue, Gr) /Re, 
Grashof number based on L, gB(AT)L2/v2 
Grashof number based on X, gg(AT)X°/v2 

ve 1/2 
characteristic length, (vX/U_) 
number of divisions in y direction 
Pressure 
Prandtl number, v/a 
dimensionless pressure, P'/(pUS/Re, ) 

x ic 

Reynolds numbers, (U_L/v) = Rey and 
(U.X/v), respectively. 
temperature 
velocity components in X,Y,Z directions 
dimensionless perturbation velocities, 
URS Vis War Uae 
rectangular coordinates 


dimensionless coordinates, (X,Y,Z)/L 
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thermal diffusivity 
coefficient of thermal expansion 


Wee 


similarity variable, Y/L = Y(U_/vX) aay, 


dimensionless temperature disturbance, 


Ou Ad 


dimensionless wavelength of vortex rolls, 


2t/a 

kinematic viscosity 

density 

dimensionless temperature, (T, eM aT) 


[ee] 


temperature difference, (1 - T.) 


Subscripts and Superscripts 


* 


critical value or dimensionless disturb- 


ance amplitude 


prime, disturbance quantity or differentia- 


tion with respect to n 
basic flow quantity 
value at wall 


free stream condition 
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2 Introduction 

Buoyancy effects in laminar forced convective flow 
over a heated horizontal semi-infinite flat plate were 
first studied by Mori [1] and Sparrow and Minkowycz [2] 
independently. These early studies apparently motivated 
further investigations [3-6] in recent years. When a 
horizontal laminar boundary layer is heated from below or 
cooled from above, the layer is potentially unstable because 
of its top-heavy situation due to the density variation of 
fluid with temperature. The situation is somewhat analogous 
to the thermal instability of plane Poiseuille flow [7-10] 
or the well-known Gortler instability of curved boundary 
layers [11]. The problem of hydrodynamic stability for the 
laminar boundary layer involving the solution of Orr- 
Sommerfeld equation has been studied rather extensively 
in the past. In contrast, the thermal instability problem 
does not appear to have been reported in the literature. 

The purpose of this study is to determine theoretic- 
ally the conditions marking the onset of longitudinal vortex 
rolls in a horizontal Blasius flow where the flat plate is 
heated isothermally from below or cooled isothermally from 
above. After the onset of vortex rolls, the flow and 
temperature fields assume a three-dimensional character 
and the existing flow and heat transfer results for laminar 
forced convection over a flat plate may no longer apply. 

It is then obvious that the present problem is of consider- 


able practical interest. 
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Gmceemthes Basic Flow 

Consideration is given to a horizontal laminar 
boundary-layer flow with free stream velocity Upandst ree 
stream temperature T, along a flat plate where the wall 
temperature Toate T..) is constant. The laminar forced convec- 
tion flow problem is governed by the following set of equa- 


CLOTS eel che 


with the boundary conditions 


where the Blasius similarity variable is n = ¥(u,/vx) 1/4 


Y/L(X) with L(X) = (ox fu) lee the stream function yp = 


(vxu_)!/? f(n), the normalized temperature t(n) = 
(T, Fa m9 /KtT 
(1) 


temperature distribution t is 


= T.,) and Pr = v/a = Prandtl number. Equation 


is solved by the fourth order Runge-Kutta method and the 
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f Lexp(- ne ff dn)]dn 


t(n) = 1 - O_o (4) 
jf, Cexp(- a ff an) Jar 


The basic flow is a two-dimensional boundary layer flow which 


depends on streamwise and transverse directions. 


9.3 The Thermal Instability Problem 
To study the vortex instability of the basic Blasius 
flow heated from below (or cooled from above), the perturba- 


tion quantities are superimposed on the basic quantities as 


U = Ui (X,Y) SUEY 5:2) 40 Vi = Vi (XY) tA UY) oW=eWO YG 2) 


Asediscussed ine [13514], all of the flow disturbance gquanti= 
ties are taken to be a function of Y and Z only for neutral 
Stability involving Gorler vortices. Further details 
regarding the assumed form of disturbances and some experi- 
mental fact are explained clearly in [13]. After applying 
the linear stability theory and using Boussinesq approxima- 
tion, the perturbation equations referring to the coordinate 


system shown in Fig. 1 become 
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ot + ae = 0 (6) 

yey, Wha ye 2b = vy2ys (7) 

yp a sole leks Satter say (8) 
es i 3b vvew' (9) 
yo yay V, oe = ave! (16) 


where ve = say? + 3% 97° and the terms involving Vee 

9U,/ 9X and aT, / aX are retained. The term U'oV, / ax is 
neglected following the boundary layer approximation 

OV / 3X x 0. The non-parallelism of the basic flow is found 
to be important in recent investigations [13,14] dealing 
with the vortex instability of natural convection flow on 
inclined isothermal plates. The basic flow and temperature 


quantities can be written in the following form 
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where Re, = UU L/v = (u.xsv) 72 


and AT = ibe aun De 


Z Reyes, Peon (nt ae ye 


After introducing the following dimensionless vari- 
BUMS SemeUX sy een Z ime CXS eC Kis (Us vow) emu V ile WS)t/U mes 
pas P'/(pU</Re, ) 6 = @'/AT the disturbance equations can 


be recast into the dimensionless form as 
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F = ynt'u PisRe TEA a v6 (16) 


where G = gg(AT)LRe, /US = Gr/Re, » Gr) = gg (AT)L?/v° = 


Oye 


ys Gry = gB(AT)X*/v* and yo = a@/ay® + 9%/az%. Upon 


Gry/Re y 
eliminating the dependent variable w and the pressure terms 
from equations (14) and (15) using continuity equation (12), 


one obtains 
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Vou alr Sl On De Rey fey (a7) 
2.2 Jeacting | 2 376 
VVV- Fo Vy = nf' vy = —'G (18) 
oy 2 9 2 
Z 
2 90 _ ; it 
VY 6° =- Py F ar Prt (Re, v 23 nu) (19) 
ine boundary conditions are uw = vy = v' = 6 = 0 at y = 0 


and », For the stationary longitudinal vortices which are 
periodic in the spanwise direction and neglecting the x- 
dependences [13,14] at the neutral stability, the following 


disturbance forms are applicable. 


u = u*(y)exp(iaz), V = v' (y)exp(iaz), 9 = 6*(y)exp(iaz) (20) 


The quantity a is the wave number of the disturbance. 
Substituting equation (20) into the perturbation equations 


(17) to (19), the following set of equations results. 
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where D = d/dy. By setting u’ = ux, Re HAV Ob =O ® 


and GRe, = Gri the parameter Rey does not appear explicitly 


and the resulting system of equations becomes 


[(Do - a°) - FD + donfi jux = Five (24) 
2 
(i? 2 ey (Ss Ree sain e 5 nfl (p> -ac)]y* = a*Gr, 0 (25) 


[(D* - a“) - Pr FDJox = Pr tt(v* - + nus) (26) 
The boundary conditions are 
u* = v* = Dv* = @* = 0 and n = 0 and ~ (27s) 


For the conventional parallel flow assumption for the 
basic flow, the terms involving F as well as the x-deriva- 
tives of the basic quantities are neglected. In the disturb- 
ance equations, the terms on the right-hand side may be 
regarded as the driving terms. Equations (24) to (27) form 
an eigenvalue problem and the solution will be effected by 


a numerical method. 
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9.4 Method of Solution 

The fourth-order finite-difference scheme used in 
this study is due to Thomas [15] in his study on the 
stability of plane Poiseuille flow and the detailed deriva- 
tions are given by Chen [16] in a study on the hydrodynamic 
stability of developing flow in a parallel-plate channel. 
In the present finite-difference solution, a finite value 
of n must be prescribed to satisfy the boundary condition 
at n = ~ [17]. For this purpose, two cases are considered 
depending on the value of Prandtl number. When Pr > 1, the 
CONGI tion: ati tin hin tyefor 11s! neplacedmbyro* = 70 at 
We cConres pond rgilort 3 ioe since as t + 0 one has 
TukotOr. EuUdation (26) reveals that the flow field is stable 
for the region n = ht Wes On the other hand, when Pr < 1] 
the boundary condition u* = 0 is set at n = No corresponding 


8 


tose 1) Kiel Oe cand ttheMconditions v* = 6* = 0 are set 


at n = n,(> No) corresponding to Tt < vOmer Aca tial tone 
has. f".' + 0 and equation (24) shows that u* = 0 for the 
region n = Te Eee, Noting that with Pr < 1 the thickness 

of the thermal boundary layer is larger than that of the 
hydrodynamic boundary layer, one obtains v* = 6* = Q for the 
region n = nine te from equations (25) and (26). The satis- 
factory values for the step size Ay, the number of divisions 
M and the end position ny for various Prandtl numbers are 
found by numerical experiments and the results are listed 


in Table 1 with No fixed at Nes = 1Ove4 x 


The finite-difference technique transforms equation 
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(25) and its boundary conditions into a quidiagonal system 
of matrix for a set of algebraic equations and similarly 
two diagonal systems result from equations (24) and (26) 
and their boundary conditions. The numerical solutions of 
the quidiagonal and tridiagonal systems are reported in 
[18] and [19], respectively, and will not be elaborated 
here. 

The iterative procedure for the simultaneous solution 
of the three perturbation equations consists of the follow- 
ing main steps: 

1. With the basic velocity and temperature given, a 
value of the wave number is selected for a particular Prandtl 
number. 

2. The initial values for the eigenvalue Gr) and the 
disturbance velocity VE in the vertical direction are 
assigned. The selection of the initial value for vy should 
correspond to the primary mode of disturbance. In this 
study, ve =2 (i= kK/M)% k =92535.85 Meise used |) However, one 
may note that the initial disturbance in the form of vy = 
Suni ke alas Mhe ik = Loi2s...shhl, also weadS co amsalistacuoTy 
result. Any arbitrary form of the disturbance profile 
satisfying the boundary conditions may be used but the pro- 
files mentioned above are found to yield a faster converg- 
ence. 

3. The finite-difference form of equation (24) is 
solved to obtain Ur. 


Apaee Worl VE and uy known, the finite-difference form 
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of equation (26) is solved to obtain er. 
9. The right-hand side of equation (25) is now known, 
and new values of VE are obtained by the finite-difference 
Solution of equation (25). 
6. A new and improved eigenvalue can now be computed 


by the following equation [20]. 


The magnitude of the quantity VE is readjusted by the follow- 
ing equation in order to return to the original order of 


magnitude. 


BS Bal A AGENT pol agp 


It is well to note that the absolute value for VE cannot be 
determined from the linearized theory and the correct pro- 
file satisfying the governing equation is sought. 

7. ihe steps (3). to (6) are repeated until the fol low- 


ing convergence criteria are satisfied. 
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iid BiGr pd nay 7 (Gri oral / (Eri new ale (30) 


Numerical experiments show that only a few iterations are 
required to satisfy the above conditions. 

By varying the wave number a and carrying out the 
above iterative procedure, a minimum eigenvalue Gry. which 
permits a solution of the set of the disturbance equations, 
can be found. The minimum eigenvalue and the corresponding 
wave number are the critical values which correspond to the 


Onséteoteuns taba lity. 


9.5 The Neutral Stability Results and Discussion 


9.5.1 Perturbed Velocity and Temperature Fields 

Although the primary objective of this investigation 
Vs! to obtain the critical value of the eigenvalue for the 
onset of stationary longitudinal rolls which are periodic 
in the spanwise direction, a study of the perturbed velo- 
city and temperature fields may provide some insight into 
the physical mechanism of thermal instability. Figs. 1 and 
2 show the distributions of the basic profiles for f', F and 
t with the disturbance amplitudes u*, v* and 6* superimposed 
for the cases of Pr = 0.7 and 10, respectively. Since the 
magnitudes of the disturbance quantities cannot be deter- 
mined by using the linear stability theory, the magnitude 
of the maximum disturbance quantity is taken to be 0.1 in 


the plotting. In order to study the decay of the disturbance 
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quantity in the vertical direction, the distributions of 
the disturbances are also shown in Fig. 3 for Pr = 0.7 and 
10 where the largest magnitude of the disturbances u*, v* 
anadteedi sitagain takenato biewORT: &.1t Tis! noted ithat tthe 
horizontal disturbance velocity u* is negative suggesting 
that the secondary flow also derives its energy from the 
main flow through mutual interactions as represented by the 
second and third terms on the left-hand side of equation 
(25). The profiles for u* and 6* are seen to be qualita- 
tively similar. 

The secondary flow pattern at the onset of instability 
is of considerable interest. For this purpose one may 
define a stream function py with v = dp/dz and w = - dp/dy 


satisfying the continuity equation dv/dy + dw/dz = 0. From 


the normal modes of the disturbances, one has v = NE (yiveree 
and py = iD neyayie AS: Using v = dWw/oz and v* = Re, v*, one 
obtains w = - [iv*(y)/aJe'°*. The physical meaning is 


attached only to the real part of the stream function and 
the contour lines are shown in Figs. 4 and 5 for Pr = 0.7 
and 10, respectively. It is noted that the dimensionless 
Wavelength is A = 2tT/a and ay is taken to be one. One 
immediately notices the striking resemblance between the 
streamline pattern of vortex disturbance for flow over con- 
cave wall [11] and the present secondary streamline pattern 


caused by buoyancy forces as illustrated in Figs. 4 and 5. 
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9.9. 260TheuNeutralmStability Results 

The neutral stability curves for Prandtl numbers 0.7 
and 10 are presented in Fig. 6 where the eigenvalue Gry is 
plotted against the wave number a. The numerical results 
for the critical (minimum) values of the Grashof number 
Gry and the corresponding wave number a* are listed in 
Table 2 for various Prandtl numbers for future reference 
and the effect of Prandtl number on the critical Grashof 
number Gry iseishown in Fig. 7. 

Taking cognizance of the relationship Gry = ary /Rey!°, 
the effect of Reynolds number on the critical Grashof 
number Gry can be studied readily and the results are pre- 
sented in Fig. 8 using logarithmic coordinates. It is of 
particular interest to compare the present result with 
Sparrow and Minkowycz's result [2] for five percent increase 
in local neti transfer rate due to buoyancy effect based on 
pure forced convection flow. For this purpose, the curves 
On -Figk iwofd| 2iimaret alsompl otitedsdins FigkeSnatio studye the 
implication of the present result, consider the case of 
Prandtl number 10. The intersection of the two curves for 


ch the longitudinal 


Pr = 10 indicates that at Rey = 4.8 x 10 
vortices may set in at Gry = 7.9 x Ta The present results 
clearly suggest the possible upper limit of the applicabi- 
lity of the published results [1-6]. Fig. 8 also shows 

that for the lower Reynolds number flow, the critical 


Grashof number Gry is lower for a given Prandtl number. 
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9.6 Concluding Remarks 

1. The thermal instability of the horizontal Blasius 
flow heated from below or cooled from above is studied by 
using linear stability theory based on non-parallel flow 
model whereby the variations of the basic flow quantities, 

UL and Th» with X as well as the transverse velocity compon- 
ent VE are retained in the perturbation equations. Some 
Similarity exists between the present problem and the 
Gortler problem. 

2. The result shown in Fig. 7 reveals that the mini- 
mum critical value of Gry is lower for higher Prandtl number. 
LhetPrandthenumbereet fect cansbeeexplained! frometherdefini- 
tion of Gr). For the pure laminar forced convection problem 
the ratio of the thermal boundary-layer thickness over the 
velocity boundary-layer thickness is known to be S+/6 = py t/3 
approximately with 6 = 5.83(vx/u_) 1/4 =e Or Com eeN On gm one 
above expression and considering the same T = Ly 2 lgsand 
Rey for two different Prandtl numbers, the ratio of the 
critical Grashof number Gry can be readily shown to be 
(Gr) )/(4ar\). = (g8/v°),/(98/v°) 5. For example, with (Pr), = 


Oey ondu ery ne 270), One fi ndS= then Yate O (Gry) ,/ (Gri), = 


a 


2 
(Ae cex ce eas x10 and the order of magnitude checks 
with the results from the present analysis. It is also noted 
that the temperature gradient (AT/5_) for large Prandtl 
number fluid is much larger than that of small Prandtl 

number fluid. In other words, the unstable region for large 


Prandtl number fluid is confined to a small region inside 
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the velocity boundary layer. On the other hand, for small 
Prandtl number fluid, the unstable region extends over a 
region outside the velocity boundary layer. 

3. The basic flow solution for pure forced convection 
used in this analysis is not valid when Rey is small (say 
< 0[10°]). For small Rey » the terms 9°U, / aX" and a amen 
must be included. When Rey = 0, the eigenvalue problem does 
not exist and a free convection on a heated horizontal semi- 
finite flat plate arises. On the other hand, the approxi- 
mate limit of boundary layer theory is Rey <oex Tine In 
interpreting the present results, it must be pointed out 
that buoyancy effects are considered only in the perturba- 
tion equations. An exact analysis would have to consider 
combined free and forced convection for basic flow. This 
together with the variable property effect remains to be 
ifives Bkdatoapin future. 

4. The experimental data do not appear to be available 


for comparison with the present results. It remains for 


future experiments to obtain the vortex instability data. 
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Stable Region 


Fig. 1 Coordinate system and distributions of basic quantities f', 
F, t and perturbation amplitudes u*, v*, 0* forarkr mene, 


notget oidp send 


my a we 


Vio noaean ‘shale 


307 


ORS 


\ 


0.45 | \\ 


y 
UA 
oO | stable Region 
Tie 


Fig. 2 Distributions of basic quantities f', F, t and perturbation 
amplitudes u*, v*, 6* for Pr = 10 
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CHAPTER X 


MAXIMUM DENSITY EFFECTS ON THERMAL INSTABILITY 
OF HORIZONTAL LAMINAR BOUNDARY LAYERS 


Linear stability theory®is used to investigate the 
onset of longitudinal vortices in laminar boundary layers 
along horizontal semi-infinite flat plates heated or cooled 
isothermally from below by considering the density inversion 
effect for water using a cubic temperature-density relation- 
Ship. The analysis employs non-parallel flow model incorporat- 
ing the variation of the basic flow and temperature fields 
with the streamwise coordinate as well as the transverse 
velocity component in the disturbance equations. Numerical 
results for the critical Grashof number Grp = ar*/Rey/é are 


presented for thermal conditions corresponding to -0.5 < hy 


Seaeteand 1-028 < ho < 1.2. 
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Nomenclature 
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operator ,d/dn 

nee on ye 

dimensionless stream function 
gravitational acceleration 
eigenvalue, Gr) /Re, 

Grashof number based on L 
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characteristic length, (vxsu_)'/2 
number of divisions in y direction 
pressure 

Prandtl number, v/a 

dimensionless pressure, P'/(pU</Re, ) 
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Reynolds numbers, (U.L/v) = Re and 
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temperature 
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dimensionless coordinates, (X,Y,Z)/L 
thermal diffusivity 
coefficient of thermal expansion 


temperature coefficients for density- 


temperature relationship 
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dimensionless temperature disturbance, 


Se Ne 


dimensionless wavelength of vortex 
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thermal parameters defined by equation 
(12) 

kinematic viscosity 

density 
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LOSkeiintroduction 

Thermal instability problems involving a horizontal 
layer of water with maximum density effect have been 
studied by various investigators [1-6] in recent years. 
Experimental investigations utilizing a melting [7-10] or 
freezing [11] horizontal ice layer were also reported 
recently. The maximum density effect is known to be import- 
ant for free convection phenomenon in water exposed to near 
freezing temperatures. A literature Survey shows that the 
published thermal instability results with maximum density 
effect are mainly concerned with the initially stationary 
liquid layer. On the other hand, one notes that little 
attention has been focussed so far to the related thermal 
instability problems with main flow. 

When a body of water with temperatures ranging from 
0°C to say 30°C flows in a horizontal direction, there 
exists a possibility for the onset of secondary motion 
regardless of whether the liquid layer is heated (or cooled) 
from below or above. This is obvious since part of the 
flowing liquid layer is potentially unstable with density 
inversion due to a top-heavy situation. The temperature 
regime mentioned may be found in natural phenomena such as 
flowing water near the ice cover in northern rivers or lakes. 

The physical model chosen for study here is a Blasius 
flow (laminar boundary-layer flow) along a horizontal flat 
semi-infinite plate with a constant wall temperature Te 


The free stream temperature is T, and the liquid possesses 
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a maximum density over the temperature range between sl and 
T,,. The purpose of this study is to determine the condi- 
tions marking the onset of stationary longitudinal vortices 
in a horizontal laminar boundary-layer with maximum density 
effect. After the onset of longitudinal vortex rolls, the 
flow resumes a three-dimensional character and the conven- 
tional heat transfer results based on steady two-dimensional 
flow model may no longer apply. The results of present 
investigation may also provide some insight into the growth 


and decay of ice layer in contact with flowing water under 


certain conditions. 


10.2 Formulation of the Thermal Instability Problem 

The basic flow solutions for velocity and temperature 
in the steady laminar boundary-layer flow past a horizontal 
flat plate are well known [12]. Referring to the coordinate 
System shown in Fig. 1 and introducing the following vari- 
ables, w = (vxu,)'/@F(n), n = Y(u,/vx)'/* = v/L, L = 
(vx/u,)'/2 


equations and the boundary conditions become [12] 
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The Blasius problem is solved by the fourth order 


Runge-Kutta method and the temperature distribution becomes 


n 
{ [exp(- - Pe 
0 0 (3) 


oa n 
jig Leesa r f_fdn)]dn 
0 0 


As the temperature difference isles - UE! increases, 
the vortex rolls will appear eventually in the laminar 
boundary layer. To study the vortex-type instability of 
the Blasius flow with a maximum density value at eran 
between Le and T., the perturbation quantities are super- 


imposed on the basic quantities as 
U = UL (X,Y) UY 2.) eV Vi (Xs) CAV araYesZ)) a W t= OW ENV s.Z.) 
T= T (XY) tars (ava 7s) ot Rae = ae Pe OmO vam tr Dimvend.) 


The assumed disturbance forms for the longitudinal vortices 
which are periodic in the spanwise direction are similar to 
those given in [13]. Specifically, the secondary flow 
vortices (GOrtler vortices) are assumed to be unchanging 
with time and non-oscillatory in the streamwise direction. 


The amplified disturbances are assumed to grow in the main 
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flow direction but since the neutral stability is of 
interest here, the first derivatives of all disturbance 
quantities with respect to X are zero. Furthermore, the 
second-order derivatives 3¢ aX? of the disturbances are 
neglected in conformity with the boundary layer approxima- 
tion [13,14]. Based on the foregoing discussion, the dis- 
turbance quantities are taken to be a function of Y and Z 
only. 

Applying the linear stability theory and using the 
Boussinesq approximation, the governing equations for the 


disturbed flow can be written as 
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where vs = save ‘5 7s It is noted that non-parallel 


flow model is employed by retaining the terms involving 
Vis aU, / ox and oT, /oXx. The term U'aV, / aX is neglected 
since OV. / ox = Q.according to the boundary layer approxima- 
tion. Recent investigations [13,14] on vortex instability 
of natural convection flow on inclined surfaces show that 
the conventional parallel flow assumption is inapplicable 
for the prediction of the onset of steady longitudinal vor- 
tices in boundary layer flow. 

The density inversion effect is of primary interest 
here and the equation of state for water can be approximated 
by the following equation for the temperature range 0 to 
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For the perturbed flow, the temperature difference (T - Pea 
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6 = O'/AT and AT = T - TL. Considering the change in the 


density Sp caused by the perturbation 6' in the temperature, 


One obtains the following expression for -Sp/p after neglect- 


ing the terms involving Ao and ae . 
Sp . See 2 
: 2y,(AAT)9(AT)[1 silks 1 (AATH ANS Ayo + rod ) (12) 
16 ay: 
[eee Se | 
where i. = (- 1) _ ermal eae Andante = Ga ) : bal 
| A 3005 2 ne 2 
vhs 4H WG RE a 


The thermal parameters Ay and hy were first introduced by 
Sun, Tien and Yen [5]. The temperature coefficient vy 
(positive) is or order ber and Yo (negative) is of order 
Wan ies is noted that A is always positive and A, is always 
negative for the temperature range (0-30°C) under considera- 
tion. The expression for ho reveals that the value ho is 
negative for heating Ok, > T,,) and positive for cooling 

Cue: < T.). In addition, the unstable layer is always con- 
fined to the region near the plate and instability occurs 
only when Le > 4°C for heating from below te > T.,) and when 
Us, < 4°C for cooling from below Oke SAB 
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can readily recognize the quantity inside the square brackets 
as the equivalent coefficient of thermal expansion. Further- 
more, the instability is possible with heating or cooling 
from below because of the presence of (aT). Upon eliminat- 
ing p and w from equations (16) and (17) using continuity 


equation (14), one obtains 


2 
Zee onee2 ] vgee'a|. Dies ay 00 
Naga Gee Ryde Vile Ol eve cee Gd La hid + Ao ) naz, (19) 
The boundary conditions are u = VE=UVeez soe Qeatey = 0 anda>: 


For the stationary longitudinal vortices, the follow- 
ing disturbance forms are applicable for the present neutral 


Stability andlysis=[13, 14]. 
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Substituting equation (20) into equations (15), (19) and 
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GeD- theaG antap(DSosdasiome Len! i(bors 7a>\] vs 


2 
= aGr, (1 - Ao + 250%) 0% (22) 
Tine - a®) - Pr FDJ]O* = Pr r'(y* - u nu*) (23) 


where D = d/dy. The boundary conditions are 


It is seen that the present eighth order eigenvalue problem 
is independent of Reynolds number Re). For given Pr, hy 
and hos there exists the functional dependence of Gr) on a 
and the minimum critical value of Gr) corresponding to the 
onset of longitudinal rolls with axes in the direction of 
the steady flow is sought. With the existence of laminar 
main flow, the analytical solution does not appear to be 


practical and a numerical method of solution is employed. 


10.3 Method of Solution 

The high order finite-difference scheme due to Thomas 
[15] is used in the present study. The detailed derivation 
is also given by Chen [16]. In carrying out the numerical 
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satisfy the boundary conditions at n = ~ [17]. With 

Pr = 10, the thermal boundary layer is inside the hydro- 
dynamic boundary layer. After numerical experiments, the 
conditions at infinity for 6* and v* are replaced by those 
at n = 5.0 corresponding to t < 107° since as t > 0, one 


has t' + 0. An examination of equations (22) and (23) 


reveals that the flow field is stable for the region n 


iT 
8 


9.0 ~ ©, On the other hand, the condition for u* at n 
is also set at n = 5.0 since v* vanishes for n 2 D5) iy 
equation (21). It is of interest to note that at ne= 11024 


: and f “S>°Ofonethesregion n = 
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The finite difference transformation of equation (22) 
and its boundary conditions leads to a quidiagonal system 
[18] of matrix for a set of algebraic equations and similarly 
two tridiagonal systems [19] result from equations (21) and 
(23) with their boundary conditions. Since the dependent 
variables are all coupled through a set of equations (21) 
to (2am an iterative procedure with the following main steps 
is used for the numerical solution. It is noted that the 
basic velocity and temperature distributions are known and 
ie Saleh 

1. The initial values for wave number a and eigen- 
value Gry are assumed. The disturbance velocity VE is taken 
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yields uy. 
3. After knowing VE and Urs equation (23) is solved 
to obtain 6. 
4. The right-hand side of equation (22) is now known 
and new values for v’ can be found. 


5. A new and improved eigenvalue can be computed by 


using the following equation [20]. 


The magnitude of the quantity ve is readjusted by the follow- 
ing equation in order to return to the original order for 


computation, 


VE > (vi) (Gr, ) 
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6. The steps (2) to (4) are repeated until the follow- 


ing convergence criterion is satisfied. 
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Numerical experiments show that only a few iterations are 


required to satisfy the above condition and five significant 
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figuresaforcecri ti call Gry are found to be correct. 


10.4 Results and Discussion 

The present numerical solution also yields results for 
secondary flow pattern and disturbance profiles for u*, v* 
and @* in addition to neutral stability results. The results 
are presented in Figs. 1 to 4 for some typical cases. The 
stream function y defined by v = dw/dz and w = -awv/dy can 
be obtained by considering the normal modes of the disturb- 


ances, Vv = Viel viene and py = wy (yvedbZ, as 


v = - Li v*(y)/aje!?? (28) 


The contour lines shown in Figs. 1 and 2 for heating and 
cooling from below, respectively, are obtained by noting 
that physical meaning is attached only to the real part of 
the stream function. In Fig. 3, the magnitude of the maximum 
disturbance quantity is taken to be 0.1 and the disturbance 
amplitudes are superimposed on basic quantities. The hori- 
zontal disturbance velocity amplitude u* is seen to be nega- 
tive suggesting that the secondary flow also derives its 
energy from the main flow. 

The neutral results for the critical values of the 
Grashof number Gry and the corresponding a* are listed in 
Table 1 and also plotted in Fig. 5. The marginal stability 


curves are shown in Fig. 6 for illustration. 
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In interpreting the numerical results, one notes that 
the parameters hy and ho depend on A as well as AT = 
(ery - TT). When AT and (18 - i ae) are known, h, and ho 
can be computed. Because of the rather complicated expressions 
for hy and hos One cannot readily understand the physical 
situation corresponding to a particular combination of Ay 
and hos bn Siig SS sathiereffec tof ry on Gry may be understood 
by considering the case of ho = 0 representing a parabolic. 


density-temperature relationship. For this case, one obtains 


eet in ties r a PRT 
hy A (T,, WE, T ee) and it is seen that for 
a given Te - T.,) = AT, the magnitude of hy increases as the 
temperature difference Ch - Les) decreases. When Mle - 


From) is small, the unstable liquid layer near the plate is 
small and consequently it is more stable as represented by 
higher Gry. In Table 1, the numerical solution does not 
converge for higher Gry than those listed. This is presum- 
ably due to the rather thin unstable layer requiring a yet 
larger number of divisions M. For a given has the liquid 
layer becomes more stable as ho decreases. 

The theoretical results for the critical Rayleigh 
numbers reported in [5] for the stationary horizontal liquid 
layers with both rigid-rigid and rigid-free surface condi- 
tions agree excellently with the experimental results. With 
the exception of the characteristic length, the present 
definition of the Grashof number is comparable to that used 


in [5,21]. Although the present instability problem with 


steady laminar main flow (Blasius flow) is different from 
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that of a horizontal liquid layer without main flow, the 
trend of the instability results regarding hy and hy 
effects shown in Table 1 agrees with those listed in [21]. 
It is of some interest to compare the present instability 
results with those of the rigid-rigid case reported in 
[5,21] since the boundary conditions for the disturbance 
quantities are comparable. For given A, AT or hos os the 
Wdt10 Of the critical Gr from this study over that of 
[5,21] simply becomes Gr#/(Gr4)_, = (L/d)> where d = liquid 
layer thickness [5]. At this point, it appears to be more 
reasonable to use the thermal boundary layer thickness b+ 
instead of the characteristic length L for the comparison. 
From the boundary layer theory [12], it is known that 57/6 = 
pr-'/3 approximately with 6 = 5.83(vx/U_)!/? = 5.83L. It 
is then found that L = 0.370 b+ and the ratio becomes 

Adee 3 0.051 after setting 5; = d. On the other 
hand, the ratio Gri/(Grg) op based on numerical results from 


* 
Gry /(Gr 


this study and fable 2 of [21] gives the value which is 
approximately one order higher than the value of 0.051. 

This suggests immediately that the above rather simple intui- 
tive comparison is not correct. However, the above simple 
discussion serves to emphasize the essential difference 
between the present instability problem and the classical 


Benard problem with maximum density effect [5,21]. 


10.5 Concluding Remarks 


1. In contrast to the classical Benard problem, the 
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present thermal instability problem for the Blasius flow 

is characterized by the existence of the stable upper liquid 
layer above the unstable lower layer near the plate. With 
BOo= 109 1tits ,known that 67/5 = 0.464 and the thermal 
boundary layer is inside the hydrodynamic boundary layer. 
The basic temperature profile for the present instability 
problem is non-linear. 

2. By using the characteristic length L, the eqgenom 
value Gry is shown to be independent of Re,. To study the 
Reynolds number effect based on the familiar definition 
Rey = (U.X/v), one must use the relationship Gry ae Gry/Rey = 
ary /Rey! where Gry = (gx? /v*) (AT) [2y, (AAT) (1 + (375/27, (AAT) 3]. 

3. In applyingsthe present instability “results, it is 
useful to recall that the approximate limits of the laminar 
boundary layer theory are 0[10°] < Rey <  5AX 103. The experi- 
mental data do not seem to be available for comparison with 


the present theoretical results. 
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CHAPTER XI 


CONCLUSIONS 


Dit COpe 01 Results 

This thesis investigates a class of thermal instabi- 
lity problems involving plane Poiseuille, Hartmann and 
Blasius flows. The onset of secondary flow driven by 
buoyancy force for the above mentioned fully developed 
laminar flow is of considerable practical interest since 
after the onset of instability the flow takes on a three- 
dimensional character and the heat transfer rate is expected 
to increase with Rayleigh number. The flow configurations 
under consideration occur in many industrial Operations and 
Processes and the critical Rayleigh numbers marking the on- 
set of instability anesrequiredinedes id On athesctaseno Tf 
plane Poiseuille flow in the thermal entrance region of a 
horizontal parallel-plate channel heated from below, both 
the longitudinal and transverse vortex disturbances are con- 
Sidered. For each linear instability analysis, typical 
numerical instability results are obtained to clarify the 
various physical effects. Among the various physical effects 
considered, the maximum density effects on convective 
instability of water layer with main flow is noteworthy 
since the instability results are applicable to the melting 


of ice or ice formation involving main flow. It should be 
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pointed out that the basic flow and temperature fields upon 
Which the instability problem is considered neglects the 
free convection effect and the basic velocity profile 
remains to be plane Poiseuille, Hartmann or Blasius flow. 
Thus, the problem is to find the condition at which the 

free convection starts to affect the main flow. Further- 
more, it is assumed that the instability sets in as station- 
ary convection since the stationary longitudinal vortices 
are observed in experiments. The assumption is also con- 
sistent with previous investigations. 

Besides the convective instability in horizontal fluid 
flows, the maximum density effects on thermal instability 
in a thin horizontal water layer driven by combined buoyancy 
and surface tension gradients are investigated. The problem 
represents an extension of Nield's linear stability analysis 
in 1964 to water in the temperature range 0 ~ 30°C. 

The coupled perturbation equations for each instability 
problem are solved by a higher order finite-difference method 
using an iterative procedure. It is found that the itera- 
tive numerical solution is very efficient and powerful for 
the present instability problems. Apparently, the numerical 
technique has a wide applicability for the related instabi- 


lity problems. 


Vik. 2ouGdnehusions: andcSignificance 
The low Peclet number convective heat transfer problem 


in the thermal entrance region of a parallel-plate channel 


EP) Se a ee 


noqu sbtaht oui svaqmat ae | 

oft atoatpan bevsbtanoa et wie vi 

af tto1q yt taelev shane ois eae at 99T 

wolt avtest@ 10 amemdveh sine sal 

eft dotdw ts notstbnos oad bat oan abe 

choddiwit ! Wort mtem oad Rae ery ¢ ea aVvno 

-notses2 26 AE 2392 uttftdszent ond + sis vanieth avo 

29atsioVv fentbustenol isnot sade edd 9. Sante. va a ~ 

anos o2t& 2f, noksamueas adT catnontraaxe te 3 

; . eiseatheaval sata ney 

bTul? fedios Prod nf wot trdsdent evitaavaoa ‘add 2 

XSi detent famredt “no “ztootte yiteneb adh 

Yonsyoud boat dmos xd naviab axel sotew hacen mee 

ma fdovq oat -batsptizevat 516 ainstberg. igriee oar 

atayfans yustitdsse ~pontlT e'btorn to notensaxa 8 tns291q9" a 

cy 9°08 = 0 spnst ovus avaqned wee wi Pope = 
ust itdetent dose 40% enotteups “notsadsusieq visi ot - 


(hi 
bongem bone 1ettib-edt abt Aadt0 nodpia’s | yevios ae 


-svett odd todd brvot 27 37. _-87ub99019 peters? acs" 
40% Tutswoq Bae Ino toTNTs Wav at “notsutor isot nur un’ evi Bd 
deka ie 254 a re aed 
feofr9mun saz esate eat 9 wsttr f - 3ng29° 7 


shdeaent betsfan ont ao¥ uti tt dss ‘ ‘WS 26f 
Liviiedt iW 8 gett cn hie ada, ST 


rapt i a i 


ae Aa ta 
mo fdovg sorenstt aba favitoevne> 19 


Beceniegirianeaion’ (2 7 me ik Hot 7 


bi 


ats t% 


al meat it i iT ib ue 


345 


with unequal constant wall temperatures is approached by 

the eigenfunction expansion method employing the Gram- 
Schmidt orthonormalization procedure. When Pe < 10, the 
axial heat conduction effect on heat transfer is consider- 
able but when Pe > 50, the axial heat conduction may be 
negligible. The critical Rayleigh numbers versus the channel 
distance are determined for both upstream and downstream 
regions©orethe! channelewithePee= 1325,0170ty ForaPes=050, 
instability results are obtained for downstream region only. 
It is established that the transverse vortex disturbances 

are the preferred mode over the longitudinal vortex disturb- 
ances for Pe < 1 and Pr > 1 (or low Reynolds number flow), 

in the regions upstream and downstream of the thermal entrance. 
For other conditions, the longitudinal vortex rolls have 
priority of occurrence. It is noted that generally the 

axial heat conduction has a destabilizing effect in the up- 
stream region and a stabilizing effect in the downstream | 
region. The theoretical instability results considering 
maximum density effects for water in the temperature 0 ~ S046 
are useful in assessing the free convection effect on freez- 
ing or thawing in channel flow of water. The viscous dissi- 
pation effect on convective instability is qualitatively 
similar to that of internal heat generation in a horizontal 
fluid layer and represents a destabilizing influence. It 

is found that the viscous dissipation effect is significant 
for Priba lWmbtcten sve nsiignaticant efor Pat < OF 77. 


The basic flow solution for Hartmann flow considers 
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the effects of axial conduction, viscous dissipation and 
Joulean heating but neglects the axial heat penetration 
through the thermal entrance. The magnetic Reynolds number 
is assumed to be small and the Hall effect is neglected. 
When the magnetic Reynolds number is very small compared 

to unity, the magnetic field is not distorted by the flow. 
In engineering problems, it is difficult to obtain the 
magnetic Reynolds number greater than unity because of the 
Tow electrical conductivity of the useful fluids. The Hall 
effect can be neglected when the fluid has a scalar electri- 
cal conductivity. The convective instability analysis of 
horizontal Hartmann flow in the thermal entrance region of 

a parallel-plate channel considers the effects of Prandtl, 
Peclet, Brinkman and Hartmann numbers. It is found that the 
magnetic field has a stabilizing effect and a decrease in 
Prandtl number has a destabilizing effect in the thermal 
entrance region. 

The maximum density effects on thermal instability 
driven by combined buoyancy and surface tension provide 
further physical insight into the thermal instability problem 
discussed by Nield in 1964. The instability results may have 
direct applications in predicting the onset of convection in 
surface melting involving ice layer on a northern lake or 
pond. Similarly, one is also interested in predicting the 
Onset of convection in a thin freezing water layer. 

The convective instability analysis of laminar forced 


convection along a horizontal semi-infinite flat plate with 
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uniform wall temperature is believed to be one of the basic 
problems and complements the hydrodynamic instability analy- 
sis of laminar boundary layers reported in the literature. 

The maximum density effects on convective instability of 
horizontal laminar boundary layer are studied in order to 
predict the onset of free convection effect in laminar 
boundary layers along ice surface where melting or solidifica- 


tionroccurs?: 


11.3 Recommendations 

This theoretical investigation demonstrates the applic- 
ability of the numerical method in predicting the Cyatieacc aul 
Rayleigh number for various thermal instability problems. 

It is believed that the numerical method used is a powerful 
one and can be applied to many linear instability analyses 
which rena into be explored in future. 

Experimental verification is required to substantiate 
the theoretical results reported in this thesis. The experi- 
mental investigations on the increase of heat transfer rate 
with the increase of Rayleigh number after the onset of 
instability may pave the way for theoretical investigations 
on finite amplitude convection problems. 

| Future investigations on convective instability of 
MHD channel flows may include the influence of Hall effect 
and iron slip in addition to the viscous dissipation, Joule 
heating and axial heat conduction effects. In the present 


analysis of thermal instability for Blasius flows along a 
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horizontal plate, the free convection effects are not con- 
sidered in the basic flow solution. Because of practical 
interest in the prediction of the onset of thermal instabi- 
lity in flow over a horizontal flat plate, the thermal 
instability of combined forced and free laminar convection 
along a horizontal flat plate with respect to stationary 
longitudinal vortex disturbances should be investigated in 
future. Finally, one notes that the thermal radiation 
effects on convective instability of various horizontal 
fluid flows may prove to be fruitful and important research 


topics for future theoretical investigations. 
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APPENDIX 1] 


DERIVATION OF HIGH ORDER FINITE- 
DIFFERENCE APPROXIMATION 


The high order finite-difference approximation due 
to Thomas [1],fwhosusediit ingaéstudy.ongthe stability of 
Plane Poiseuille flow, is employed in this thesis for the 
numerical solution of the thermal instability problems. 
The detailed derivation of the approximation is given by 
Chen [2] in a study on the hydrodynamic stability of 
developing flow in a parallel-plate channel. For convenience, 
the derivation is summarized here. 

The various orders of derivatives of a function g(z) | 


can be expressed in finite-difference form as: 
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Dh = — {us! 12.39 (7) 
h 
p°g = “3 we te (8) 


where D is the linear operator, D = d/dz, and h the finite- 
difference mesh size. 
By defining the averaging operator u, and the central 


difference operator 6, one obtains 


ug(z) = y[g(z + 9) + alz - $)] (9) 
ég(z) = g(z +9) - g(z - #) (10) 

and 
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nv= 0 Jb, 24 os, (772) 


In order to reduce the truncation error, Thomas [1] 
introduced a new variable g relating to the dependent vari- 


able, say ¢, and its derivatives by the expression 
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By substituting this new variable into equations (1) 
to (8), it can be shown that the truncation errors in ¢ and 


its derivatives become of higher order [2]. One thus obtains 
3 al] 5 ] 7 


hDp = {ug - . UG sae 39 Us” - 140 uGe t+ 6 sig 


h“D°¢ aa 2) 


ite edi Toke ey) 


: 


ee 


Fp 

7 ce ote ane! 

Men ei 

Lait) a ee 
ae ah ie ee We 

[if] 2smoAT , 10119 ange Pe cubes of th se 


-i1sv tnabnsqeb std oF gntistey e “stagtnay nie » be: 
notzzo1qx9 oft xa sovttovtyeb. ar bap oe 


(st) cre 
' bibs th fq 4 v si 


oi: Be Pt ; tie 
* om ‘ at : , | : 7 ce 


CO pata ee ad g- eee 
?é 4 ws 3 | wa Pare: 


(fT) envtdsups oint afdsttsy. wot stig potsurrtedve 2 
bas ® at 2v0x1s" nvttsonund ag ‘tend nwore od ned Hp 8 8) 0 
entsido 2un3 op0" Seay v9bv0 vet to y soso Rial b 


et. Vey 
(sf) =e 
he 

More 


oe - r | ‘hg 


isi awa i. 
aih es 


352 


h>0°¢ era ek she aie us? ne des 
+ UB RED? i an 6 (16) 
h*p*6 = Be - - 54 xs se }g + é n°p%s - & np? s (47) 
hob 6 = (uepee xy us! + J..3g + x bo 026). + h?D7¢ (18) 
nop = (86 - L 68 + ...3g + 1 n8p8q - ae (19) 
n’p’¢ = {ud’ ...39 +E h°D® - ge hd! lg (20) 
nop 84 ee ee: eet p10p10, r ue pl2yl2y (21) 


where the terms of order , 10 


and higher order are neglected. 
Substituting equation (22) into equation (19), and 


successively using these results from equations (17), (15), 
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Since the highest order of the governing differential 


Gquatvonmas fourth order, equations (24), (25).1(26), (29), 


and (30) can be written in the form as 


where 
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Substituting equation (33). Into. (31). one, obtains 


which is 


of order 
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the resulting matrix for the differential equation 


four. 


Similarly, for the differential equation of order two, 


One can use the following matrix. 
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APPENDIX 2 


ALGORITHMS FOR PENTADIAGONAL AND 
TRIDIAGONAL MATRICES 


1. Algorithm for Pentadiagonal Matrix [3]. 
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and 


Ya = (fp - Be¥p_y - apYpo)/tp 


The B. and uz are used only to compute S55 A. and Yas 
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and need not be stored after they are computed. The 5.3 ds 
and Y, must be stored, as they are used in the back solution. 
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2. Algorithm for Tridiagonal Matrix [4]. 


Theat 


gt\ 4s g¥g'= gagYa® - 9? > av 


7 


«;Y bos oN por atuqmoa of vino bea2u 916 44 bis re) oft 


,f 028 ent - - bad uqntog ‘one yond yotts5 bovotte “a ton re 


motsutoz joed afta nf boeu 9%6 ved 25 Sh dl od t2um. ine ie 
; ne 


an 
y 
hae 
eA | f a : 


reap : 
tog | aan ay iy: | 


360 


for ls i < N with a, =f@PRiOX Sihe algorithm is, as follows. 
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APPENDIX 3 


METHOD OF REGRESSION FOR TEMPERATURE 
EFFECTS ON DENSITY OF WATER BETWEEN 0°C 
; AND 30°C [5] 


Consider the relationship, 
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In Table Al, Column A represents the values listed 
in Table 93 of [6], and Column B lists the values calculated 


by equation (1) using the results of the regression analysis. 
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1. From equation (22b) and considering the z-component, 


one obtains 
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By using the disturbance form f = #*(z)el?Y, one obtains 
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Hence e = 0 for the whole domain. 


2. From equation (21) and the boundary condition (29), 
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Since oF = 0 at z = 0, 1, one obtains 
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After the order of magnitude analysis, equation (34) becomes 


Hence, one concludes that by = 0 for the whole domain. 


4, The y-component of equation (22d) is 
2knj, = (= x? 
In terms of the amplitude quantities, one obtains 
2Rmdy, = Dby 
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From equation (36) one has 


Hence one concludes that ey = 0 for the whole domain. 
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APPENDIX 5 


DERIVATION OF STREAM FUNCTION FOR 
HEXAGONAL CELL [7] 


The perturbation equations in dimensionless form are: 
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where ¢' denotes a plane-harmonic function of x and y. 
At the cylindrical boundary, along a plane of symmetry, 


u and v must satisfy the condition 
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where L measures the sides of the hexagon. 


An alternative form of the solution is 
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try, and the motion is two-dimensional. Thus for x = 0, 
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The equation, dy/v = dz/w, gives the streamlines in 
the (y,z)-plane and can be readily integrated by using 


equations (17) and (18) to give 
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and the equation for the streamlines in the (x,z)-plane is 
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The streamlines of the secondary flow from equations (19) 
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0.9991286 
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0.9985120 
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APPENDIX 6 


COMPUTER PROGRAMS 
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PROGRAM FOR CHAPTER II 


DECK FOR CALCULATING EIGENVALUES AND EIGENFUNCTION 

IMPLICIT REAL*8 (A-H,O-Z) 

DIMENSION YN(20,201),8N (20,201) ,PN(20,201) 
, ZN (20,201) ,DY (20,201) ,DR(20,201) , DF (20, 201) 
, DZ (20,201) ,AL (20) ,BE (20) ,EP (20) ,GA(20) , VI (2) 
, EF (201) , DE (201) ,AN (20) ,BN(20) ,CN (20) ,DN (20) 

WRITE (6,5) 

READ (5,6) PE 

WRITE (6,7) PE 

FORMAT ({'0','INPUT IN FORMAT XXX0.XDX FO PE") 

FORMAT (D8.1) 

FORMAT ('0',*PECLECT NO. =',F5.1) 

KE=201 

N1=20 

READ (5,50) (AL(N) ,N=1,N1) 

READ (5,50) (BE(N) ,N=1,¥1) 

READ (5,50) (EP(N) ,N=1,N1) 

READ (5,50) (GA(N) ,N=1,N1) 

READ (5,50) (CN(N) ,N=1,N1) 

READ (5,50) (BN(N) ,N=1,N1) 

READ (5,50) (DN(N) ,N=1,N1) 

READ (5,50) (AN(N) ,N=1,N1) 

H=1.D0/(KE=1) 

CALCULATE AL & YN 

DO 10 N=1,N1 

VI (1y}=15 

VI (2) =0. 

EI=AL (N) 

CALL DRKG(PE,VI,EI,EF,DE,KE,1) 

DO 14 K=1,KE 

YN (N, K) =EF (K) 

DY (N, K) =DE{K) 

CONTINUE 

AL (N) =ET 

CONTINUE 

CALCULATE BE & RN 

pO 11 N=1,N1 

VI(1)=1. 

VI (2) =0. 

EI=BE (N) 

CALL DRKG(PE,VI,EI,EF, DE,KE,2) 

DO 15 K=1,KE 

RN (N, K) =EF (K) 

DR (N, K) =DE (K) 

CONTINUE 

BE (N) =EL 
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CONTINUE 

pO 12 N=1,N1 
VI (1) =0. 

VI (271. 
EI=EP (N) 
CALL DRKG(PE,V1I,EI,EF,DE,KE,1) 
DO 16 K=1,KE 
FN (N, K) =EF (K) 
DF (N,K) =DE(K) 
CONTINUE 

EP (N) =EI 
CONTINUE 

DO 13 N=1,N1 
¥i (1) =0. 
¥VI(2)=1. 
EI=GA (N) 

CALL DRKG(PE,V1I,EI,EF,DE,KE,2) 
DO 17 K=1,KE 
ZN (N, K) =EF (K) 
DZ (N, K) =DE {K) 
CONTINUE 

GA (N) =EI 
CONTINUE 


WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 


(8,71) 
(8,71) 
(8,71) 
(8,71) 
(8,71) 
(8,71) 
(8,71) 
(8,71) 
(10,71) 
£10, 717) 
(10,71) 
(10,71) 
{10,71) 
{10,71) 
(10,71) 
(10,71) 


(AL (4) ,N=1,N1) 

(EP (N) ,N=1,N1) 
(BN (4) ,N=1,N1) 

(AN (N) ,N=1,N1) 

((YN(N,K) ,K=1,KE,10) ,N=1,N1) 
((FN(N,K) , K=1,KE, 10) ,N=1,N1) 
((DY (N, K) ,K=1,KE, 10) ,N=1,1) 
((DF (N,K) ,K=1,KE,10) ,N=1,81) 
(BE(N) ,N=1,N1) 

(GA (N) ,N=1,N1) 

(CN (N) ,N=1,81) 

(DN (N) , N=1,41) 

( (BN (N,K) , K=1,KE, 10) ,N=1,1) 
((ZN (N,K) ,K=1,KE, 10) ,N=1,N1) 
( (DR (N,K) ,K=1,KE,10) ,N=1,N1) 
((DZ(N,K) -K=1,KE, 10) ,N=1,N1) 


FORMAT (4D20.10) 
FORMAT (8D15.6) 
FORMAT (6D20. 10) 
(5D16.9) 


FORMAT 


STOP 
END 


SUBROUTINE DRKG(PF,V1I,E1,EF,DE,KE, IN) 
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IMPLICIT REAL*8 (A~H,O-2) 
DIMENSION VI(2),EF (201) ,DE(201) 
SIGN= (~1) **IN 

H=1.D0/ {KE~1) 


H2=H*H 
CON=(8./(3.*PE) ) **2 
T9=-0.5*H2 


EF (1) =VI (1) 

DE (1) =VI(2) 

EPS=0.1D-7 

IMAX=20 

IT=0 

TT=IT+1 

IF (IT.GT.IMAX) GO TO 14 
EI2=EI*EL 

T10=CON*EI2 

x=0. 

DO 11 K=2,KE 

T1=EF (K~1) 

T2=DE (K~1) *H 

T3=(TI*EI2* (T10+SIGN* (1.-X*X))) *T1 
X¥=X¥+0.5*8 

TH=T140.5*T240. 25*T3 

T5= (TI*EL2* (T1O+SIGN* (1.-X*X))) *T4 
X=X+0.5*H 

TH=T14T24T5 

T6= (TO*EL2* (T10+SIGN* (1.-X*X))) *T4 
£7=€93472.7T5) /3. 

TS8= (T3+4.*T5+T6) /3. 

EF (K) =T14#T2+T7 

DE (K) = (T2+T8) /H 

CONTINUE 

ERR=EF (KE) 

IF (IN.EQ.1) ERR=DE (KE) 

IF (DABS(ERR).LE.EPS) GO TO 14 
IF (IT.GE.2) GO TO 12 

ER1=ERR 

EIG=EI 

EI=F1I+0.001 

GO TO 10 

ER2=ERR 

AK=(EI~-EIG) / (ER2-ER 1) 

EIG=EIL 

EI=EI~ER2*AK 

ER1=ER2 

co T0 10 
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14 CONTINUE 
WRITE (6,60) If,PE,EI 

60 FORMAT ('0',*NO. OF ITERATION =',13,5X,'PECLECT NO. =", 
1 D8.1,5X,*EIGENVALUE =',D20. 12) 
RETURN 
END 
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IMPLICIT REAL*8 (A~H,O-2) 

DIMENSION RN(20,201),YN(20, 201) ,FN(20, 201) 

1 ,ZN(20,201) ,AL(20) ,BE (20) ,EP (20) ,GA(20) ,G (40) 
2 ,DT(20,20) ,T1(1600) ,T2 (201) ,B (40,40) , P(20, 20) 
3 ,0(20,20) ,PH(20, 201) ,PY(20,201) 


50 
51 


10 


11 


12 


REAL*8 L1(40) ,M1(40) 

READ (5,5) PE 

WRITE (6,6) PE 

FORMAT (D8.1) 

FORMAT ('0','PECLECT NO. =",D10.2) 
N1=20 

N2=N1¥*2 

KE=201 

THE=1. 

H=0.005D0 


READ (15,50) (AL(N) ,N=1,N1) 

READ (15,50) (BE(N) ,N=1,N1) 

READ (15,50) (EP{N) ,N=1,N1) 

READ (15,50) (GA(N) ,N=1,N1) 

READ (15,51) ({Y¥N(N,K) ,K=1,KE) ,N=1,N1) 
READ (15,51) ({(BN(N,K) , K=1, KE) ,N=1,¥1) 
READ (15,51) ((FN(N,K) ,K=1, KE) , N=1,N1) 
READ (15,51) ((ZN(N,K) ,K=1,KE) ,N=1,N1) 
FORMAT (1X,4D20.12) 

FORMAT (1X,5D16.9) 


CALL ORTH(BN,P,PH,N1,KE,4) 

WRITE (6,66) 

WRITE (6,60) ((P(I,J) ,J=1,N1) ,-T=1,N1) 
CALL ORTH(YN,Q,PY,N1,KE, H) 

WRITE (6,67) 

WRITE (6,60) ({Q(1,4),J=1,N1) ,T=1,N1) 
CALL EMA(AL,BE, PH,PY,P,Q,N1,KE, H, £) 
pO 10 E=1,¥2 

e(y=0. 

DO 12 N=1,N1 

pO 11 K=1,KE 

T 1(K) =PH (N,K) 

CALL DOSF(H,T1,T2,KE) 

G (N) =THE*T 2 (KE) 


K=1 

DO 13 J=1,N2 
DO 13 I=1,N2 
T1 (K) =E (I,¥) 
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K=K+1 


WRITE (6,68) 

EPS=0.1D-7 

CALL DGELG(G,T1,N2,1,EPS,1ER) 
WRITE (6,61) IER 

WRITE (6,60) (G(I) ,I=1,N2) 
WRITE (7,71) (G(1),I=1,N2) 


CALL ORTH (ZN,P,PH,N1,KE, 4H) 

WRITE (6,66) 

WRITE (6,60) ((P(I,d),3=1,N1) ,1=1,N1) 
CALL ORTH(FN, Q,PY,N1,KE, H) 

WRITE (6,67) 

WRITE (6,60) ((Q(I,3),J=1,N1) ,I=1,N1) 
CALL EMA(EP,GA,PH,PY,P,Q,N1,KE, H, £) 
DO 14 I=1,N2 

64zy 26. 

DO 16 N=1,¥1 

DO 15 K=1,KE 

7=H* (K=1) 

T1(K) =Z*PH (N, K) 

CALL DOSF(H,T1,T2,KE) 

G (N) =-T2 (KE) 

K=1 

DO 17 J=1,N2 

DO 17 I=1,¥82 

T1(K)=E(I,J) 

K=K+1 

WRITE (6,68) 

CALL DGELG (G,T1,N2,1,EPS,1IER) 

WRITE (6,61) IER 

WRITE (6,60) (G(I),1=1,N2) 

WRITE (7,71) (G(I) ,1=1,N2) 


FORMAT (8D15.7) 

FORMAT ('0',*ERROR INDICATOR OF DGELG*',I5) 
FORMAT ('0','P MATRIX") 

FORMAT ('0',*Q MATRIX") 

FORMAT ('0','THE COEFFICIENTS") 

FORMAT (4D20.10) 

STOP 

END 

SUBROUTINE ORTH (RN,P,PH,N1,KE,4H) 

IMPLICIT REAL*8 (A-H,O~Z) 

DIMENSION RN(20,201),T1 (400) , T2 (201) ,D (20) 
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1 ,DT (20,20) ,A (20,20) ,P(20, 20) , PH (20,201) 
REAL*8 L1(20) ,M1(20) 

DO 12 M=1,N1 

DO 12 N=M,N1 

DO 11 K=1,KE 

T1(K) =RN(M,K) *RN(N, K) 

CALL DQOSF(H,T1,T2,KE) 

DT (M,N) =T2 (KE) 

DT (N, M) =T2 (KE) 

CONTINUE 


D (1) =DSORT (DABS (DT (1,1) )) 
DO 14 N=2,N1 

K=1 

pO 13 J=1,8 

DO 13 I=1,N 

T1(K)=DT (I,J) 

K=K+1 

CALL DMINV(T1,N,D1,L1,%1) 
D (N) =DSORT (DABS (D1) ) 
CONTINUE 


po 15 J=1,N1 

DO 15 I=1,N1 
a(t, 3) =0. 
P(r, a) 30. 

DO 21 N=3,N1 
IN=N-1 

pO 21 J=1,N 

DO 29 IR=1,N 

IF (IR-J) 16,29,17 
K=IR 

GO TO 18 

K=IR-1 

CONTINUE 

po 19 Ic=1,1N 
A(K,1C) =DT (IR, IC) 
CONTINUE 
CONTINUE 

K=1 

pO 20 Ic=1,1N 

pO 20 IR=1,1N 
T1(K) =A (IR, IC) 
K=K+1 

CALL DMINV(T1,IN,D1,11,1) 
P{N,J)=D1 
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CONTINGE 

DO 22 J=1,N1 

DO 22 I=1,N1 

A(I,J)=0. 

Wedd; Fp 392/0 11) 

DEN=D (1) *D (2) 

A (2,1)=-DT (2,1) /DEN 

A(2,2)=DT (1,1) /DEN 

DO 23 N=3,¥1 

DEN=D {N) *D (N= 1) 

DO 23 J=1,N 

I=N+J 

ANM= (-1.) **I*P (N,J) 

A(N,J)=ANM/DEN 

CONTINUE 

K=1 

DO 24 J=1,N1 

DO 24 I=1,N1 

T1{K) =A(I,J) 

K=K+1 

CALL DNINV(T1,N1,D1,1L1, 8&1) 

DO 25 J=1,N1 

DO 25 I=1,N1 

P (I,J) =0. 

K=1 

DO 26 J=1,N1 

pO 26 I=1,N1 

P (I,J) =T1 (K) 

K=K+1 

DO 27 K=1,KE 

DO 27 N=1,N1 

PH (N, K) =0. 

DO 28 J=1,N1 

DO 28 K=1,KE 

DO 28 N=1,J3 

PH (J, K) =PH (J, K) +A (J, N) * RN (N, K) 

RETURN 

END 

SUBROUTINE EMA(AL,BE,PH,PY,P,0,N1,KE,H, &) 

IMPLICIT REAL*8 (A-H,O-2) 

DIMENSION PH (20,201) ,PY (20, 201) ,P (20,20) ,Q(20, 20) 
7E (40,40) ,71(201) ,T2(201) ,BE2 (20) ,AL2 (20) 
,DT (20,20) ,AL (20) ,BE(20) 

N2=N1*2 

DO 10 N=1,N1 

AL2(N) =AL (N) **2 
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BE2 {N) =BE (N) **2 

po 13 J=1,N1 

pO 13 I=1,N1 

DT (I,J) =0. 

DO 11 J=1,N2 

DO 11 I=1,N2 

Ett, 3)<0. 

DO 15 M=1,N1 

DO 15 N=1,81 

DO 14 K=1,KE 

T1(K) =PH(M, K) *PY (N,K) 
CALL DQSF(H,T1,T2,KE) 
DT (M,N) =T2 (KE) 
CONTINUE 


DO 17 M=1,N1 

DO 17 N=M,N1 

E (M,N) =P (N,M) 

E (N14, N1+N) =AL2 (N) ¥0 (N,M) 
CONTINUE 

DO 20 IR=1,N1 

pO 20 Ic=1,N1 

c1=0. 

c2=0. 

po 19 J=1,IC 
C1=C1+#0 (IC, J) *DT (IR,J) 
C2=C2+P (IC, J) *DT (J, IB) 
CONTINUE 
E(IR,N1+IC)=-C1 
E(N1#1IR, IC) =BE2 (IC) *C2 
CONTINUE 

RETURN 

END 
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PROGRAM FOR CHAPTER III 


IMPLICIT REAL*8 (A~H,0-2) 

DIMENSION DUZ (41) ,PTX (41) ,PTZ (41) ,ZY (30) 
7A3 (41) ,B3(41) ,C3 (41) ,A5 (41) ,B5 (41) ,C5 (41) 
D5 (41) ,E5 (41) ,G (41) ,CRA (41) , X (30) 
7¥ (41) ,¥N (41) ,P0(41) , TH(41) 

,BE (20) ,GA(20) , BE2 (20) ,GA2 (20) , RN (20, 21) 
7 ZN (20,21) ,DRN (20,21) ,DZN (20,21) ,CN(20) ,DN(20) 

COMMON /A/M,MI,™1 

COMMON /B/BE2,GA2,CN,DN,RN, ZN, DRN,DZN,N1,K1 

READ (5,5) PE,PR,L1,1N, 1E,1D 

READ (5,6) (X(L),L=1,1L1) 

WRITE (6,7) PE,PR,L1,IN,IE,ID 

FORMAT (2F5.1,412) 

FORMAT (13F6. 3) 

FORMAT ("1",'PECLECT NO.=',F5.1,5X,"PRANDTL NO.=' 

1 ,D9.2,5X,313,'' INDICATOR=",12) 

11=15 

N1=20 

K1=21 

M=40 

EPS=0.1D=-5 

MI=M-1 

M1=M+1 

pZ=0.025D0 

DZ2=DZ*DZ 

DZ4=DZ2*DZ2 

PU (1) =0.D0 

PU (M1) =0.D0 

TH (1) =0.DO0 

TH(M1)=0.D0 

W (1) =0.0D0 

W (41) =0.D0 

WN (1) =0.D0 

WN (M1) =0.D0 

THE=1. 

READ (15,50) (BE(N) ,N=1,N1) 

READ (15,50) (GA(N) ,N=1,N1) 

READ (15,50) (CN(N) ,N=1,N1) 

READ (15,50) (DN{N) ,N=1,N1) 

READ (15,50) ((RN(N,K) ,K=1,21) ,N=1,N1) 
READ (15,50) ((ZN(N,K) -K=1,21) ,N=1,N1) 

READ (15,50) ((DRN(N,K) ,K=1,21) ,N=1,N1) 

READ (15,50) ((DZN(N,K) ,K=1,21) ,N=1,N1) 

FORMAT (5D16.9) 

pO 10 N=1,N1 

BE2 (N) =BE (N) **2 
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GA2 (N) =GA (N) **2 
CONTINUE 
DO 41 K=2,™ 


DUZ (K) =3.D0* (1. D0=2. DO*DZ* (K= 1) ) 


A1=K 
W (K) =2.*(1.-A1/M) 
CONTINUE 


DO 100 L=IN,IE 

XA=X (L) 

WRITE (6,163) X(L) 

CALL BTEM(ID,XA,PTX,PTZ) 
WRITE (6,164) 

WRITE (6,160) (PTX{(K) ,K=1,™1) 
WRITE (6,160) (PTZ(K) ,K=1,"1) 
IRA=1 

TA=1 

RA=1708.0D0 

A=2.50D0 

CONTINUE 

X1={(A*DZ) **2/0.6D1 

X2= (A*DZ) **4/0. 36D3 

¥3=(A¥*DZ) **2/0. 12D2 

B3 (1) =-12.D0 

C3{1) =0 

pO 174 K=2,8 

A3(K) =1.D0=-x3 

B3 (K) =-2.D0-X3*10 

C3 {K) =A3 (K) 

CONTINUE 

B3 (M1) =-12.D0 

A3(M1)=0.D0 

C5 (1) =264.D0*X1-~240.D0 

DS (1) =96.D0*X1-120.D0 

E5 (1) =0.D0 

B5 (2) =56.D0*K2-8. DO*X1-4.D0 
C5 (2) =247.D0*X2+17.D0*K1+7.D0 
D5 (2) =B5 (2) 

E5 (2) =1.D0-X1+X2 

C5 (3) =246.D0*X2+18.D0*K1+6. D0 
pO 12 K=3,MI 

AS (K) =E5 (2) 

B5 (K) =B5 (2) 

C5 (K) =C5 (3) 

D5 (K) =B5 (2) 

E5 (K) =E5 (2) 
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CONTINUE 

A5 (M) =E5 (2) 
BS (M) =B5 (2) 
C5 (M) =C5 (2) 
D5 (M) =B5 (2) 
E5 (M) =0.D0 
AS (M1) =0. D0 
B5 (M1) =D5 (1) 
C5 (M1) =C5 (1) 
D5 (M1) =0.D0 
E5 (M1) =0. D0 


C START ITERATION 
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T=1 

DO 60 K=1,M1 

G {K) =¥ (K) *DUZ (K) *DZ2 

CALL TRID(A3,B3,C3,G6,PU) 
TEMP4=16.D0/3.D0 

DO 63 K=1,M1 

G (K) =TEMP4*PU (K) /PR*PTX (K) +W (K) *PTS (RK) 
G (K) =G (K) *DZ2 

CALL TRID(A3,B3,C3,G,TH) 
DO 67 K=1,M1 

G (K) =A*A*RA*TH (K) *DZ4 
CALL PENTAD (A5,85,C5,D5,E5,G, WN) 
A1=0.0D0 

A2=0.0D0 

DO 70 K=1,M1 

A1=A1+W (K) **2 
A2Z=A2+WN (K) *¥*2 
RAN=RA*DSQRT (A1/A2) 
A1=0.0D0 

A2=0.0D0 

pO 75 K=1,4M1 
A1=A174DABS (WN (K) ~W (XR) ) 
A2=A2+DABS (WN (K)) 
TEMP1=A1/A2 

IF (TEMP1.LE.EPS) GO TO 73 
DO 72 K=1,¥M1 

W (K) =9N (K) *RAN/RA 

RA=RAN 

I=1I+1 

P 45508251) co tO TT! 
CONTINUE 

WRITE (6,161) I,A,RA,TEMP1 
CRA(IA)=RA 

A=A+0.1D0/IRA 
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IA=IA+1 

IF (2A.LE.3) GO TO 15 

SIGN= (CRA (IA-1) ~CRA (IA~2) ) * (CRA (IA~2) ~CRA (IA=3) ) 

IF (SIGN) 13,13,15 

CONTINUE 

IF (IRA.GE.100) GO TO 14 

A=A-3*0.1/IRA 

IRA=IRA*10 

CRA (1) =CRA (IA-3) 

IA=2 

A=A+0.1/IRA 

GO TO 15 

CONTINUE 

CONTINUE 

FORMAT (8D15.6) 

FORMAT ('0','NO. OF ITERATION=",14,5X,"WAVE NO.=", 
D12.5,5X,*RAYLEIGH NO.=",D15.7,5X,"ERROR=",D15.6) 

FORMAT ('01,"AXIAL POSITION AT',D12.4) 

FORMAT ('0','THE DERIVATIVE OF TEMPERATURE',//) 

STOP 

END 

SUBROUTINE BTEM(ID,X,PTX, PTZ) 

IMPLICIT REAL*8 (A-H,0-2) 

DIMENSION PTX (41) ,PTZ(41) ,BE2(20) ,GA2 (20) , CN (20) 
, DN (20) ,RN (20,21) ,ZN (20,21) , DRN (20, 21) , D2ZN (20,21) 

COMMON /A/M,MI,M1 

COMMON /B/BE2,GA2,CN,DN,RN,ZN,DRN,DZN,N1,K1 

IF (ID.EQ.1) GO TO 22 

DO 33 K=1,M1 

PTZ (K)=1. 

PTX (K) =0. 

DO 34 N=1,N1 

T1=DEKP (-X*BE2 (N) ) 

T2=DEXKP (-X*GA2 (N) ) 

IF (K-K1) 35,35, 36 

KK=K1-K+1 

PTX (K) =PTX (K) ~CN (N) *BE2 (N) *RN (N, KK) *T1#DN (N) *GA2 (N) 
*ZN(N, KK) *T2 

PTZ (K) =PTZ (K) “CN (N) *DRN (N, KK) *T14+DN (N) ¥DZN (N, KK) *T2 

GO TO 34 


36 KK=K-K1+1 


34 


1 


PTY (K) =PTX (K) <CN (N) *BE2 (N) ¥RN (N, KK) *TI-DN (N) *GA2 (N) 
*ZN (N,KK) *T2 

PTZ (K) =PTZ (K) +CN (N) *DRN (N, KR) #2 1+DN (N) *DZN (N,KR) ¥T2 

CONTINUE 

PTZ (K) =-PTZ (K) 
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PTX (K) =-0.5*PTX (K) 

CONTINUE 

RETURN 

CONTINUE 

DO 23 K=1,M1 

PTZ (K) =0. 

PTX (K) =0. 

DO 24 N=1,N1 

T1=DEXP (-X*BE2(N) ) 

T2=DEXKP (-X*GA2(N) ) 

IF (K-K1) 25,25,26 

KK=K1-K+1 

PTX (K) =PTX (K) +CN(N) *BE2 (N) *RN(N, KK) *T1- 
DN (N) ¥GA2 (N) *ZN (N, KK) *T2 

PTZ (K) =PTZ (K) ~CN(N) *DRN (N, KK) *T1#DN (N) *DZN (N,KK) *T2 

GO TO 24 

KK=K=K1+1 

PTX (K) =PTX (K) +CN(N) *BE2 (N) *RN(N, KK) *T1+ 
DN (N) ¥GA2 (N) *ZN (N, KK) *T2 

PTZ (K) =PTZ (K) +CN (N) *DEN (N, KK) *T1+DN (N) *DZN (N,KK) *T2 

CONTINUE 

PTX (K) =-0.5*PTX (K) 

PTZ (K) =-PTZ (K) 

CONTINUE 

RETURN 

END 

SUBROUTINE TRID(A,B,C,D,FF) 

DOUBLE PRECISION A(51),B(51),C(51) ,-D(51) , F (51) 
,BP (51) ,0(51) ,H(51) ,FF (51) 

COMMON /A/M,MI,"1 

BP (2) =C (2) /B (2) 

Q (2) =D (2) /B (2) 

DO 1 K=3,MI 

H (K) =B{K) ~A(K) *BP (K~1) 

BP (K) =C (K) /H (K) 

Q (K) = (D (K) A (K) *O (K=1) ) /H (4) 

CONTINUE 

F (M) = (D (MH) “A (MN) *O (MI) ) 7 (B O(N) =A (MN) *BP (MT) ) 

DO 2 KK=2,MI 

K=M1-KK 

F (K) =Q(K) ~BP (K) *F (K+1) 

CONTINUE 

FF (2) =(10. DO*F (2) +F (3)) /12 

DO 3 K=3,MI 

FF (K) =(F (K=1) +10. DO*F (K) +F (K+1)) /12 

CONTINUE 
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PF (M) =(F (MT) +10*F(M))/12 

RETURN 

END 

SUBROUTINE PENTAD(A,B,C,D,E,F, WN) 

DOUBLE PRECISION A(41),B(41),C{(41),D (41) ,E (41) ,F (41), 
1 ¥(41),WN(41) ,OMGA (41), BETA (41) ,GAMM (41) ,H(41) ,DELT (41) 
COMMON /A/M,MI,M1 

OMGA (1) =C{1) 

BETA (1) =D {1) /OMGA (1) 

GAMM (1) =E(1) /OMGA (1) 

DELT (2) =B(2) 

OMGA (2) =C (2) = DELT (2) *BETA (1) 

BETA (2) =(D (2) ~DELT (2) *GAMM(1) ) /OMGA (2) 

GAMM (2) =E (2) /OMGA (2) 

DO 10 N=3,M1 

DELT (N) =B (N) ~A(N) * BETA (N=2) 

OMGA (N) =C(N) ~A(N) *GANM (N-2) =DELT (N) * BETA (N- 1) 
BETA (N) =(D(N) -DELT (N) *GAMM (N= 1) ) /OMGA (N) 

GAMM (N) =E (N) /OMGA (N) 

BETA (M1) =0.D9 

GAMM (M1) =0.D0 

GAMM (M) =0.D0 

H (1) =F (1) /OMGA (1) 

H (2) = (F (2) ~DELT (2) *H (1) ) /OMGA (2) 

DO 20 N=3,M1 

H (N) = (F (N)-A (N) *H (N-2) ~DELT (N) *H (N-1)) /ONGA (N) 
Y (M1) =H (M1) 

Y (M) =H (M) -BETA(M) *Y (M1) 

DO 30 KK=1,MI 

I=M~KK 

¥ (1) =H (1) ~BETA (1) *¥ (I+ 1) ~GAMM (I) *¥ (T+2) 

WN (2) =(56*Y (1) +247*Y (2) +56*Y (3) +¥ (4) ) 7360 

DO 40 K=3,MI 

WN (K) = (Y¥ (K— 2) +56¥*Y (K- 1) +246*Y (K) #56*Y (K+1) +¥ (K+2)) 7360 
CONTINUE 

WN (M) = (¥ (M-2) +56*Y (MI) +247*Y (M) #56*Y (M1) ) 7360 
RETURN 

END 
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PROGRAM FOR CHAPTER IV 


IMPLICIT REAL*8 (A-H,O0~Y) 
DIMENSION BU (41), DBU (41) , PTX (41) , PTZ (41) , PXX (41) 
1 ,PHI (41) ,A3(41) ,B3(41) ,C3 (41) ,A5 (41) ,B5 (41) 
3 ,C5 (41) ,D5(41) , £5 (41) ,F (41) ,G (41) ,CRA (41) 
4 ,W (41), WN (41) , PU (41) ,TH (41) , FXX (41) , AFX (41) 
2 ,BE(20),GA(20),CN(20) ,DN(20) ,RN(20,21) 
5 ,ZN(20,21) ,DRN(20,21) ,DZN (20,21) ,X (30) , ZY (30) 
COMMON /A/M,MI,™1 
COMMON /B/BE,GA,CN,DN,RN,ZN,DRN,DZN 
READ (5,8) RAM1,RAM2 
READ (5,5) PE,L1,1IN,IE,ID 
READ (5,7) (X(L),1L=1,L1) 
WRITE (6,6) PE 
FORMAT (F5.1,412) 


Cw] HO 


FORMAT 
FORMAT 
FORMAT 


(70', "PECTECT NO. =",F5.1,///) 
(13F6. 3) 
(2F6. 3) 


N1=20 
PR=10. 
11=15 
THE=1. 
EPS=0.1D-5 
M=40 
MI=M-1 
Mi=M+1 
K1=M/2+1 
DZ=1.D0/% 
DZ2=DZ* DZ 
DZ4=DZ2*DZ2 
PU (1) =0 
PU (M1)=0. 
wW(1)=0. 
w(m1)=0. 
WN (1)=0. 
WN(M1)=0. 
TH (1) =0. 
TH (M1) =0. 
C READ IN THE ANALYTIC SOLUTION OF BASIC FLOW 


READ (15,50) (BE(N) ,N=1,N1) 
READ (15,50) (GA(N) ,N=1,N1) 
READ (15,50) (CN(N) ,N=1,N1) 
READ (15,50) (DN(N) ,N=1,41) 
READ (15,50) ((RN(N,K) ,K=1, 21) ,N=1,N1) 
READ (15,50) ({ZN(N,K) ,K=1,21) ,N=1,N1) 
READ (15,50) ((DRN(N,K) ,K=1,21) ,N=1,N1) 
READ (15,50) ((DZN(N,K) ,K=1,21) ,N=1,N1) 


(TS, O05) MH, (OSP EA, (OEP HD 
(OE) YE, (OLPN, (FS. OS) WRC, (PE. OS 


E50,096, 02,48, 
ai 


i 


rep 


\NNol 28%, ** 208 


B95 


50 FORMAT (5D16.9) 
C CALCULATE THE VELOCITY FIELD 
DO 30 K=1,M1 
Z=DZ¥* (K-1) 
BU (K) =3.D0* (Z-Z*Z) 
DBU (K) =3.D0* (1.-2.¥*2) 
30 CONTINUE 
WRITE (6,31) 
31 FORMAT (1HO, "BASIC VELOCITY PROFILE’) 
WRITE (6,60) (BU{K) ,K=1,#1) 
WRITE (6,60) (DBU(K),K=1,§1) 
C DEFINE THE INITIAL PERTURBATION VELOCITY 
DO 38 K=2,é™ 
T3=K 
W (K) =2.* (1.-73/0) 
38 CONTINUE 
DO 100 L=IN,IE 
WRITE (6,69) X(L) 
XA=X (L) 
CALL TEMP (ID,DZ,XA,PHI, PTX, PTZ, PXX) 
WRITE (6,70) 
WRITE (6,60) (PXX(K),K=1,41) 
WRITE (6,60) (PTX(K) ,K=1,™1) 
WRITE (6,60) (PHI (K) ,K=1,%1) 
WRITE (6,60) (PTZ(K) ,K=1,™1) 
DO 39 K=1,M1 
F (K) =1-RAM1*PHI (K) +RAM2*PHI (K) **2 
FXX (K) =-RAM 1*PXX (K) +2. *RAM2* (PTX (K) **2+PHI (K) *PXX (K) ) 
39 CONTINUE 
IA=1 
IRA=1 
WA=2.5D0 
RA=1.D5 
15 CONTINUE 
WA2=WA*WA 
X1=WA2*DZ2/6 
X2=WA2*WA2*DZ4/360 
X3=X1/2 
C DEFINE THE MATRICES 
B3 (2) =-2.D0-10. DO*X3 
C3(2) =1.D0-x3 
DO 11 K=3,¥§ 
A3 (K) =C3(2) 
B3 (K) =B3 (2) 
C3 (K) =C3(2) 
11. CONTINUE 
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C5 (1) =264.D0*X1-240.D0 

D5 (1) =96.D0*X1-120. D0 

E5 (1) =0.D0 

B5 (2) =56.D0*X2-8.D0*X1-4.D0 
C5 (2) =247.DO*X24+17.D0*X1+7.D0 
D5 (2) =B5 (2) 

E5 (2) =1.D0-X1+X2 

C5 (3) =246. DO*X2+18.D0*X14+6.D0 
DO 12 K=3,MI 

A5 (K) =E5 (2) 

B5 (K) =B5 (2) 

C5 (K) =C5 (3) 

D5 (K) =B5 (2) 

E5 (K) =E5 (2) 

CONTINUE 

A5 (M) =E5 (2) 

B5 (M) =B5 (2) 

C5 (M) =C5 (2) 

D5 (M) =B5 (2) 

E5 (M) =0.D0 

A5 (M1) =0.D0 

B5 (M1) =D5 (1) 

C5 (M1) =C5 (1) 

D5 (1) =0. DO 

E5 (M1) =0.D0 

T 1= (16. D0/ (3*PE) ) **2 

DO 37 K=1,M1 

AFX (K) =WA2*F (K) ~T 1*FXX (K) 
CONTINUE 


C START THE ITERATION 


ce 


tet 
DO 80 K=2,™ 


80 G(K)=W(K) *DBU (K) *DZ2 


CALL TRID(A3,B3,C3,G,PU) 


C CALCULATE THE TH 


81 


T4=16.D0/3. 
DO 81 K=2,™ 


G (K) =T4*PU (K) /PR*PTX (K) +W (K) *PTZ (K) 


G (K) =G {K) *DZ2 
CALL TRID(A3,B3,C3,G,TH) 


C CALCULATE THE NEW W 


82 


DO 82 K=1,M1 
G (K) =AFX (K) *RA*TH (K) *DZ4 


CALL PENTAD (A5,B5,C5,D5,£5,G, WN) 


C CALCULATE THE NEW RAYLEIGH NUMBER 


T1=0. 
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T2=0 » 
DO 83 K=1,M1 
P1=T 14H (K) **2 
83 T2=T2+WN (K) **2 
RAN=RA*DSORT (T1/T 2) 
C CHECK THE CONVERGENCE OF W 
T1=0. 
T2=0. 
DO 84 K=1,M1 
T1=T14DABS (W (K) -WN (RK) ) 
84 T2=T2+DABS (¥N(K)) 
T3=T1/T2 
IF (T3-EPS) 1000,85,85 
C READJUST W 
85 DO 86 K=2,™ 
86 W{K)=WN(K) *RAN/RA 
RA=RAN 
I=I+1 
IF (1-11) 1111,1111,1900 
1000 CONTINUE 
WRITE (6,87) I,WA,RA,T3 


CRA(IA)=RA 
WA=WA+0.1/IRA 
IA=IA+1 
IF (IA.LE.3) GO TO 15 
SIGN= (CRA (IA—1) “CRA (IA~ 2) ) * (CRA (IA-2) ~CRA (IA~3) ) 
IF (SIGN) 13,13,15 
13 CONTINUE 
IF (IRA.GE.100) GO TO 14 
WA=WA-3*0.1/IRA 
IRA=IRA*10 
CRA (1) =CRA (TA-3) 
IA=2 
WA=WA+0.1/IRA 
GO TO 15 
14 CONTINUE 
WRITE (6,88) X(L) ,RAM1, RAN2 
ZY (L)=RA 
100 CONTINUE 
WRITE (7,61) (ZY (L) ,L=IN,IE) 
61 FORMAT (10F8.1) 
60 FORMAT (8D15.6) 
69 FORMAT (1HO, 'X=",D10.3) 
70 FORMAT (1HO, ‘TEMPERATURE FIELD") 
88 FORMAT (1HO, 'X=',D10.3,5X,'RAM1=",D10.3,5X,"RAMN2=",D10.3 
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FORMAT (1HO, *I=",13,5X,'WAVE NO.=",D12.5,5X, 
1 ‘RAYLEIGH NO.=1,D20.10,5X,'ERROR=',D16.7) 

STOP 

END 

SUBROUTINE TEMP (ID,DZ,X,PHI, PTX, PTZ, PXX) 

IMPLICIT REAL*8 (A-H,0-Y) 

DIMENSION BE (20) ,GA{20) , BE2 (20) ,GA2 (20) , BE4 (20) ,GA4 (20) 
1 ,RN{(20,21),ZN (20,21) ,DRN (20,21) ,DZN(20, 21) ,CN (20) 
2 ,DN(20),PTX (41) ,PTZ(41) ,PXX (41) , PHT (41) 

COMMON /A/M,MI,M1 

COMMON /B/BSE,GA,CN,DN,RN,ZN,DRN,DZN 

N1=20 

THE=1. 

K1=21 

pO 10 N=1,N1 

BE2 (N)=BE (N) *BE (N) 

GA2 (N)=GA (N) *GA (N) 

BE4 (N) =BE2 (N) *BE2 (N) 

GA4 (N) =GA2 (N) *GA2 (N) 

CONTINUE 

IF (ID.EQ.1) GO TO 22 

pO 33 K=1,M1 

Z=DZ* (K=1) 

Z=Z*2.DN=-1. D0 

PHI (K) =1.+2 

PTZ (K)=1. 

PTX (K)=0. 

PXX (K) =0. 

pO 34 N=1,N1 
T1=DEXP (-X*BE2 (N) ) 

T2=DEXP (-X*GA2 (N) ) 

IF (K-K1) 35,35, 36 

KK=K1~-K+1 

PXX (K) =PXX (K) +CN (N) *BE4 (N) *RN(N,KK) *TI-DN (N) *GA4 (N) 


1 ¥*2ZN(N,KK) *T2 


PTX (K) =PTX (K) ~CN (N) *BE2 (N) *RN (N, KK) *T14+DN (N) *GA2 (N) 
1 *ZN(N,KK) *T2 

PHI (K) =PHI (K) +CN (N) *RN (N, KK) *T1-DN(N) *ZN(N, KK) ¥T2 
PTZ (K) =PTZ (K) ~CN (N) *DRN (N, KK) *T1#DN (N) *DZN (N,KK) #72 
GO TO 34 

KK=K-K1+1 

PXX (K) =PXX (K) #CN (N) *BES (N) *RN (N, KK) *T14DN (N) *GA4 (N) 


1 #*ZN(N,KK) *T2 


PTX (K) =PTX (K) CN (N) *BE2 (N) *RN(N, KK) *T1~DN (N) *GA2 (N) 
1 ¥*ZN(N,KK)*T2 
PHI (K) =PHI (K) +CN (N) *RN(N, KK) *T14+DN (N) *ZN (N, KK) *T2 


f 
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PTZ (K) =PTZ{K) +CN(N) *DRN (N, KK) *T14+DN (N) *DZN (N,KK) *T2 
CONTINUE 

PXX (K) =-0.5*PXX (K) 

PHI (K) =-0.5*PHI (XK) 

PTZ (K) =-PTZ (K) 

PTX (K) =-0.5*PTX (K) 

CONTINUE 

RETURN 

CONTINUE 

DO 23 K=1,M1 

PHI {K) =1.+THE 

PTZ (K)=0. 

PTX (K)=0. 

PXX (K)=0. 

DO 24 N=1,N1 

T1=DEXP (-X*BE2 (N) ) 

T2=DEXP (~X*GA2(N)) 

IF (K-K1) 25,25,26 

KK=K1~K+1 

PTX (K) =PTX (K) +CN(N) *BE2 (N) *RN(N, KK) ¥*T1- 


1 DN (N) *GA2 (N) *ZN (N, KK) *T2 


PXX (K) =PXX (K) +CN(N) *BE4 (N) *RN (N, KK) *#T1~ 


1 DN (N) *GAQ (N) *ZN (N, KK) *T2 


PHI (K) =PHI (K) +CN(N) *RN(N,KK) *T1-DN (N) *ZN(N, KK) *T2 
PTZ (K) =PTZ{K) ~CN(N) *DRN (N, KK) *T1+DN (N) *DZN (N,KK) *T2 
GO TO 24 

KK=K~-K1+1 

PTX (K) =PTX (K) +CN(N) *BE2 (N) *RN(N, KK) *T1+ 

1 DN (N) *GA2 (N) ¥ZN (N,KK) *T2 

PXX (K) =PXX (K) +CN (N) *BE4 (N) *RN(N,KK) *T1+ 

1 DN(N) *¥GA4 (N) *ZN (N,KK) *72 

PHI (K) =PHI (K) +CN(N) *BN(N, KK) *T1+DN (N) #ZN(N, KK) *T2 
PTZ (K) =PTZ (K) +CN(N) *DRN (N, KK) *11#DN (N) *DZN (N,XK) *T2 
CONTINUE 

PTX (K) =-0.5*PTX (K) 

PTZ (K) =—-PTZ (K) 

PHI (K) =-0.5*PHI (K) 

PXX (K) =-0.5*PXX (K) 

CONTINUE 

RETURN 

END 

SUBROUTINE TRID(A,B,C,D, FF) 

DOUBLE PRECISION A(51),B(51),C(51) ,D (51) ,F (51) 

1 ,BP(51),0(51) ,H(51) -FF(51) 

COMMON /A/M,MI,#1 

BP (2) =C (2) /B(2) 
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Q (2) =D (2) /B (2) 

DO 1 K=3,MI 

H {K) =B (K) ~A (K) * BP (K=1) 

BP (K) =C (K) /H (K) 

Q (K) = (D (K) ~A (K) *0 (K~1) ) /H (K) 

CONTINUE 

F (M) = (D (M) —A (M) *Q (MT) ) 7 (B(M) ~A (8) ¥BP (MT) ) 
DO 2 KK=2,MI 

K=M1-KK 

F (K) =Q (K) ~BP (K) *F (K+1) 

CONTINUE 

FP (2) =(10. DO¥F (2) +F (3)) /12 

DO 3 K=3,KMI 

FF (K) = (F (K- 1) #10. DO*F (K) +F (K+1)) /12 
CONTINUE 

FF (M) =(F (MI) +10*F (M))/12 

RETURN 

END 

SUBROUTINE PENTAD(A,8,C,D,E,F, WN) 

DOUBLE PRECISION A(41),B(41),C(41) ,D (41) ,E(41) ,F(41), 
1 ¥(41),4N (41) ,OMGA (41) , BETA (41) ,GAMM (41), H(41) , DELT (41) 
COMMON /A/M,MI,M1 

OMGA (1) =C{1) 

BETA (1)/=D (1) /OMGA (1) 

GAMM (1) =E (1) /OMGA (1) 

DELT (2) =B (2) 

OMGA (2) =C (2) - DELT (2) *BETA (1) 

BETA (2) = (D (2) ~DELT (2) *GAMM({1) ) /OMGA (2) 
GAMM (2) =E (2) /OMGA (2) 

DO 10 N=3,M1 

DELT (N) =B (N) ~A(N) *BETA (N-2) 

OMGA (N) =C (N) ~A(N) *GAMM (N~2) -DELT (N) *BETA (N= 1) 
BETA (N) = (D(N) ~DELT (N) *GAMM (N~1)) /OMNGA (N) 
GAMM (N) =E (N) /OMGA (N) 

BETA (M1) =0.D0 

GAMM (M1) =0.D0 

GAMM (M) =0.DO 

H (1) =F (1) /OMGA (1) 

H (2) = (F (2) =DELT (2) *H(1) ) /OMGA (2) 

DO 20 N=3,M1 

H (N) = (F (N) ~A (N) ¥H (N-2) ~DELT (N) *H (N-1)) /OMGA (N) 
Y (M1) =H (M1) 

Y (M) =H (M) <BETA (M) *¥ (M1) 

DO 30 KK=1,MI 

I=M~-KK 

Y (I) =H (I) -BETA (I) *¥ (1+ 1) ~GAMM (I) *¥ (I+#2) 
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WN (2) = (56*Y (1) + 247*Y (2) +56*Y (3) +¥ (4) ) 7360 

DO 40 K=3,MI 

WN (K) = (¥ (K-2) +56*¥ (K-1) +246*Y (K) +56¥*Y (K+1) +¥ (K4+2)) /360 
CONTINUE 

WN (M) =(¥ (M-2) +56*Y (MI) +247*Y (M) +56*Y (M1) ) /360 

RETURN 

END 
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PROGRAM FOR CHAPTER V 


C DECK OF ANALYTIC SOLUTION OF VISCOUS DISSIPATION 
IMPLICIT REAL*8 (A-H,0-Z) 
DIMENSION EIGNE(12).EIGNO(12).DZE(12).DZ0(12)s,DRZE(12)> 
1 DZRO(12)4ZE(12.201 ).Z20(122201)5CE(12)5CO(12)> 
2 THL (40 651) 2 TNU(40) s8NU(40) »B8MT(40) X(40)5T1(12540)> 
fe TY (20 1) 5Z1(201) .FZ(10) s.BR(15)THU(40 551) T2(12540) 
Ji=6 
11=24 
READ (5,552) (X(1).1=1,11) 
READ (5952) (BR(1).1=1sJ1) 
52 FORMAT (8D10.3) 
Li=201 
N1=8 
Ki=51 
H=1-eD0/(K1-1) 
DELT=1.D0 
C READ IN DATA 
READ (5.50) (EIGNE(CN)sN=15N1) 
READ (5550) EI GNOCN )sN=15N1) 
READ (5350) {DZE(N) +N=15N1) 
READ (52950) (DZO(N)»5N=15N1) 
READ (5550) (DZRE(N) »N=15N1) 
READ (5550) {(DZRO(N) »sN=1.N1) 
50 FORMAT (4020.10) 
pO 55 N=1,N1 
55 READ (5251) (ZEC(NoL) sL=1,.11) 
DO 56 N=1.N1 
56 READ (5951) (ZOC(NosL) sl=15L1) 
Si FORMAT (5016-29) 
WRITE (6261) 
WRITE (6371) (EIGNECN) »N=1,5N1) 
WRITE (6,562) 
WRITE (6971) (EIGNO(N) sN=15N1) 
WRITE (6,63) 
WRITE (6371) (OZECN) »N=15N1) 
WRITE (6,64) 
WRITE (6271) (DZOC(N) »sN=19N1) 
WRITE (6,65) 
WRITE (6971) (OZRECN)sN=1.N1) 
WRITE (6,566) 
WRITE (6271) (DZROCN)sN=15N1) 
WRITE (6:67) 
WRITE (671) (CZECNsL) »L=12b1) »sN=1,N1) 
WRITE (6368) 
WRITE (6971) ((ZOCN oL) sL=1 sL1) »N=15N1) 
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FORMAT(C1IHOs "EVEN EIGINVALUE® ) 
FORMATCLHOs "ODD EI GENVALUE?®) 
FORMAT(1HOs, "DZE*) 

FORMAT(C1IHOs *DZ0*) 

FORMATCLHO, "DZRE#®) 
FORMAT(C1HOs *DZRO*) 

FORMAT {(1HO»s ‘*ZE*) 

FORMAT (1HOs *Z0*) 

FORMAT (1H »6D20.210) 


C CALCULATE CE AND CO 


75 


7Co 


20 


79 


69 


READ (5350) (FZ(N)sN=15N1) 

WRITE (6375) 

FORMAT {(1HO», "THE INTEGRAL OF FZ®*) 

WRITE (6371) (CFZCN) »N=15N1) 

DG 100 J=1.J1 

WRITE (6370) BR(J) 

FORMAT (1HO., *BR=*,D202-10) 

DO 20 N=1.N1 

T6=BR( JI) *XEIGNE(N)*FZI(N)/(DZECN) *DZRECN)) 
CE(N)=—22D0*DELT/S( EI GNE(N) *DZRE(N) )-3-2D0/2*T6 
COUN) =2-D0/( EI GNO(N) *DOZRO{(N)) 

CONTINUE 

WRITE (73979) {(CE(N) »N=15N1) 

WRITE (7379) (CO(N)+»N=1,N1) 

FORMAT (4D20.210) 

WRITE (6,569) 

FORMAT (1HOs *THE COEFFICIENTS FO THE SERIES* ) 
WRITE (6571) {(CE(N) »N=1.N1) 

WRITE (6571) (CON) sh=15N1) 


C CALCULATE THE TEMPERATURE PROFILE 


23 


DO 21 I1=1,11 

WRITE (6372) X(I) 

DG 22 K=1,5K1 

KI=(K—-1)*441 

Z=H*(K-1) 
FBZ=BR( J) *(12D0—-Z**4 )*374 
T5=0.D0 

T6=0.D0 

THUC I,K )=0-D0 

THL(IsK )=0-D0 

DO 23 N=1.N1 

TL(Neo lI) =—-EIGNE(N) €*2*xXCT) 
T20Neo1)=—-E IGNO(N) *®*2*X(1) 
T3=CE(N)*ZECNs KI) *DEXPC(TIC(NsIT)) 
T4=CO(N) ®ZO(Ns KI) *DEXP(T2(NsI)) 
TS=T5+T3+T4 

T6O-=T64+T3-T4 

CONT INUE 
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THUC 19K )=Z+T54F BZ 
THL( 14K )=—-Z+T64+FBZ 
THUCT 9K )=0.5D0*(1.2D0-THUC IK) ) 
THL (16K )=0.500*(1.2D0-THL(1,K) ) 
CONT INUE 
WRITE (6971) (THUCI»K)»K=15K1) 
WRITE (6271) (THLCI »K) sK=12K1) 
CONTINUE 
FORMAT (1HOs *X="3D110495Xe"TEMPERATURE PROFILE® ) 
ULATE THE BULK MEAN TEMP. AND NUSSELT NUMBER 
DO 31 I=1.I11 
T3=0.D0 
T4=0.D0 
T5=6.D0 
DO 32 N=1,.N1 
T 3=T3+4D ZE (N) ¥CE(N) XD EXP(TI(No1))/EIGNE(N)**2 
T4=T44CE(N) *DZE(N) *¥DEXP(T1(NsI)) 
T5=T5+CO(N) ¥DZO(N) ¥DEXP(T2(NsI)) 
CONTINUE 
BMT (1)=3-D0/2*(16.D0/35*BR{J)-T3) 
TNU (CI )=€1-D0—-BR( J) *¥34T44T5)/(1 eDO-BMT{(1)) *4 
BNUCI)=(1-D04BR( J) *3-T44T5)7/(1 e-DO+BMT(1))*4 
WRITE (6573) XCI)sBMT(1)sTNUCT)sBNUCT) 
CONT INUE 
FORMAT (1HO, ©X=*sD1204s5Xs"BMT=" sD20210s5Xs*TNU=® vs 
D20.10s5Xs*BNU"=H.»020-10) 
CONTINUE 
CALL EXIT 
END 


PROGRAM FOR THE CASE GF VISCOUS DISSIPATION EFFECTS 
IN PARALLEL=-PLATE CHANNELS 
IMPLICIT REAL*8 (A-H»0-Z) 
DIMENSION RN(20 521) 9 ZN( 20221 )20RN(20921)sDZN(20921)>5 
CN(20) sDN( 20) »DUZ( 41) »PTZ(41)sPTX(41) sA3041)>5 
A5(41) »85(41) C5141 )2D5(41 ) E5141) sF5(41)5D03(41)> 
W(41)+5WN(41)sPU(41 ) »TH( 41) 36(41),BETA(20) » GAMA(20) 
083141) 203141) »X( 50) .CRA(41 ) oBRI10) »DPU(41) »DTH(41) 
0Y¥4(41) 9Z1(41) s ANY(41) sCRA(20) »-REU(41 ) »sREW(41)sRET(41) 
COMMON MoeMI»M1 
Li=24 
READ (507) (X(T) sT=15L1) 
FORMAT (80103) 
Ji=1 
J=1 
BR(1)=-100-6 
N1=8 
11=20 
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M=40 
EPS=0.21D-5 
MI=M—-1 
M1=M+41 
K1i=M/2+4+1 
DZ=0.025D0 
DZ2=DZ*DZ 
DZ4=DZ2*DZ2 
PU(1)=0.2D0 
PU(M1)=0.D0 
TH(1)=0-D0 
TH(M1)=C.20D0 
wt1)=0.0D0 
w(M1)=0.D0 
WN(1)=0.D0 
WN{M1)=0.D0 
C READ IN THE ANALYTIC SOLUTION GF THE MAIN FLOW 
READ (542154) (BETA(N)sN=1,5N1) 
READ (55154) (GAMA(N)sN=15N1) 
154 FORMAT (4020210) 
DO 150 N=1.N1 

150 READ (55155) (RN(NoIT )ol=15K1) 
DO 151 N=15N1 

151 READ (55155) (ZN(NoI )eT=15K1) 
DG 152 N=%5Nl1 

152 READ (53155) (DRN(No I) sIT=15K1) 
DG 153 N=1.N1 

153 READ (52155) (DZN(N2I)sT=1+K1) 

155 FORMAT (5016.9) 

DO 9 N=1.N1 
RN( N21 )=02D0 
DRN(No1 )=0-D0 
DZN(Ns1)=1-0D0 
9 CONTINUE 
C WRITE ALL DATA OUT 
WRITE (65161) 

161 FORMAT 41H »*INPUT DATA®*) 
WRITE (62160) (BETACN) »sN=15N1) 
WRITE (62160) (GAMACN)sN=15N1) 
WRITE (63162) 

162 FORMAT (1H »*RN VALUE®) 

WRITE (62160) ((RNCN sK)sK=1+K1)sN=15N1) 

160 FORMAT (1H 5701729) 

WRITE (62163) 

163 FORMAT (1H »*®ZN VLAUE*) 

WRITE (62160) (CZNCN 0K) o K=1 sK1) »N=15N1) 
WRITE (69164) 
164 FORMAT (1H » *ORN VALUE® ) 
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WRITE (631690) (CORN NoK) »K=15K1),N=15N1) 
WRITE (65,165) 
165 FORMAT (1H » *DZN VLAUE® ) 
WRITE (6.160) ((DZN€NosK) sK=12K1)sN=15N1) 
C CALCULATE THE VELOCITY GRADIENT OF THE MAIN FLOW 
DG 42 K=1.M1 
DUZ(K)=3.D0*(1.2D0-2.00*DZ*(K-1)) 
42 CONTINVE 
WRITE (63160) (DUZC(K )sK=15M1) 
X(31)=0.7 
X{32)=10- 
X(33)=100- 
WRITE (6321) BR(J) 
21 FORMAT (1HOs *BR=",D15-5) 
READ (59154) €CN(1)sI=15N1) 
READ (55154) (DN(1I)+.I=1.N1) 
WRITE (62166) 
166 FORMAT (1H »*CN AND ON VLAUE*) 
WRITE (623160) CCNUN) sN=15Ni1) 
WRITE (63160) (CON(N) »N=15N1) 
DD 100 JP=1,3 
PR=X{(304JP) 
DO 100 L=1,sL1 
WRITE (62180) BR{(J),X(L) 
180 FORMAT (*#O0BR=45D1104s5Xe"X=",D11.24) 
C CALCULATE THE TEMPERATURE GRADIENT OF THR MAIN FLOW 
DO 43 K=1,Mi1 
PTX(K)=0-20D0 
Z=DZ*(K-1) 
PT Z(K)=12D0-3-D0*BR (J) *( 2eD0¥Z—-1200) **3 
DO 44 N=1,N1 
A1=—-X(L)*(BETAIN) **2 ) 
A2=-X(L)*(GAMA(N)**2) 
IF (K-K1) 45545246 
45 PTXCK)=PTX(K)-CN(N) ® BETACN) ®*®2*RNONs K1-K41) #DEXPCAI) 
| +DN(N) ®¥GAMA(N) **¥2*ZN(NsK1—-K41 ) ®*DEXP (CA2) 
PTZ(K )=PTZ(KI—CN(N) XDRNONoK 1-K41) ®DE XP (AL) +DN(N) 
1 *DZN(NoK1—K4+1) *DEXP(A2) 
GO TO 44 
46 PTX(K)=PTX(K)—CN(N) *¥BETACN) #®2*RNON» K-K141) *DEXPCAI) 
1 —-DN(N) ¥GAMACN ) ¥*2 *ZNO Ns K-K141 ) *DEXPC(A2) 
PT Z(K )=PTZ(K)+CNO(N) ¥ORN( No K—-K141) ¥DEXPCA1)+ON(N) 
1 *DZN(NsK—K141) *DEXP(A2) 
44 CONTINUE 
PTX(K)=—0 .5DO*PTX(K) 
PTZ(K)=—-PTZ(K) 
43 CONTINUE 
WRITE (62167) 
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167 FORMAT (1H »*THE TEMP. GRADIENT OF MAIN FLOW*) 


C DEFINE THE INITIAL VALUE OF PERTURBATION VELOCITY OFW 


41 


iS 


WRITE (63160) (PTX(K )oK=15M1) 
WRITE (65160) (PTZ(K)sK=15M1) 


DO 41 K=25M 

A1l=K 

w(K )=2-eD0*(12D0—-A1/40) 
WRITE (69160) (W(K) »K=15M1) 
IRA=1 

IA=1 

RA=1708-20D0 

A=2250D0 

CONTINUE 

X1=( A*DZ)**2/026D1 
X2=( A*DZ)**4/0236D3 
X3=CA*DZ)**2/0212D2 


C DEFINE THE GAUSS COEFFICIENT 


ii 


B3(1)=-12.2D0 
c3(1)=0 

DO 11 K=25M 
A3(K)=1.2D0-X3 

B3 (K )=-2.D0-X3*10 
C3(KI=ABTK) 
CONTINUE 
B3(M1)=-12eD0 
A3(M1)=0.2D0 


C DEFINE THE GAUSSS COEFFICIENT 


12 


C5(1)=264.D0*X1-240.2D0 
DS5(1)=96eD0*X1—-120.D0 
—E5(1)=0.D0 
B5(2)=562e00*X2-8.D0 *X1-4-.D0 
C5(2)=247 eDO*X2417 -DO*¥X1+72D0 
DS(2)=8572) 

E5(2)=1 -DO-X1+#+X2 
C5(3)=246eD0*X2418eD0*X14+62D0 
DO 12 K=3>5MI 

AS(KI=E5(2) 

B5(K)=B5(2) 

C5(K)=C5(3) 

D5(K)=B5(2) 

E5(K)=E5(2) 

CONTINUE 

AS(M)=E5(2) 

BS5(M)=B5(2) 

C5(M)=C5(2) 

DS(M)=B85(2) 

E5(M)=0.-D0 

A5(M1)=0-4D0 
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BS5(M1)=D5(1) 
C5(M1)=C51(1) 
DS(M1)=C.2D9 
E5(M1)=C0eD90 
C START ITERATION 
I=1 
C CALCULATE PU 
22272 DG 60 K=15Ml1 
60 G(K)=w(kK)*DUZTK) *DZ2 
CALL TRID(A3.B3sC32G2aDZsPUs,DPU) 
© CALCULATE THE THETA 
DG 63 K=1,Ml1 
G(K)=TE MP4*PUCK)/PR¥PTX(K) 4W(K D*¥PTZ(K) 
i +4 .D0*BRIJ )*DUZ(K) ¥OPUTK)/PR 
63 Gi(K)I=GCK) *DZ2 
CALL TRIDT(A3sB32C3sGsTH) 
C CALCULATE THE NEW PERTUREATION VELOCITY OF WwW 
DO 67 K=15Ml1 
67 GK J=A*XA*RAXTH(K) *DZ4 
CALL PENTAD(A5»85sC520D5,E53GsWN) 
C CALCULATE NEW RAYLEIGH NUMBER 
A1=0.0D0 
A2=0.0D0 
DO 7O K=15M1 
A1L=A1l4W(K)**2 
70 A2=A2t+WNTK) *¥2] 
RAN=RA*DSQRT(A1I/A2) 
C CHECK THECONVERGENCE OF W 
A1=0.0D0 
A2=0.0D0 
DO 75 K=1.M1 
A1=A14+DABS(WN(K )—-wK)) 
75 A2=A24+DABS(WNIK)) 
TEMP1=A1/A2 
IF (TEMPI1-EPS) 1000272372 
C READJUST W 
72 pO 73 K=1+5Mi1 
73 W(K)=WN(K) *RAN/RA 
RA=RAN 
I=I+1 
IF (I-11) 111141111, 1000 
1000 CONTINUE 
WRITE (69174) IsPReAsRAsTEMPI 
CRA( LIA) =RA 
A=A4+O0e1DO/IRA 
IA=IA+t1 
IF (IAeLE~3) GO TO 15 
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SIGN= (CRA (IA~1)-CRA (IA~2) ) * (CRA (IA~2) ~CRA (TA~3) ) 

IF (SIGN) 13,13,15 

CONTINUE 

IF (IRA.GE.100) GO TO 14 

A=A-3*0.1/IRA 

TRA=I1RA*10 

CRA (1) =CRA (IA=3) 

TA=2 

A=AtO0.7/1RA 

GO TO 15 

CONTINUE 

WRITE (6,171) 

WRITE (6,160) (WN(K) ,K=1,M1) 

WRITE (6,172) 

WRITE (6,160) (PU (K) ,K=1,™1) 

WRITE (6,173) 

WRITE (6,160) (TH(K) ,K=1,™1) 

CONTINUE 

CONTINUE 

FORMAT (1H , ‘PERTURBATION VELOCITY IN Z DIRECTION') 

FORMAT (1H , *'PERTURBATION VELOCITY OF U') 

FORMAT {1H , ‘PERTURBATION TEMPERATURES) 

FORMAT (1HO, *1=",13,5X," PRANDTL WO.=',D10.3,5X,' WAVE NO.=', 
D12.5,5X%,"RAYLEIGH No=",D15.8,5X,* ERROR=',D15.8) 

STOP 

END 

SUBROUTINE TRID(A,8,C,D,DZ,FF,DFF) 

DOUBLE PRECISION A(41),B (41) ,C (41) ,D(41) ,F (44) , BP (41) 
,FF (41) ,DFF (41) ,9 (41) ,H(41) ,DZ,T1 

COMMON M,MI,M1 

BP (2) =C (2) /B(2) 

Q (2) =D (2) /B (2) 

po 1 K=3,A1 

H (K) =B (K) 7A (K) *BP (K~1) 

BP (K) =C (K) /H(K) 

Q (K) =(D (K) ~A (K) *Q (K~1) ) /H (RK) 

CONTINUE 

F(M1)=0.D0 

F (M) = (D (M)~A (M) *O (MI) ) 7 (BM) ~A (M) BP (NT) ) 

DO 2 KK=2,MI 

K=M1=KK 

F (K) =Q (K)~BP (K) *F (K+1) 

CONTINUE 

F(1)=0.D0 

FF (2) =(10.DO*F (2) +F (3))/12 

pO 3 K=3,MI 

FF (K)=(F (K-1) +10. DO*F (K) +F (K#1)) /12 

CONTINUE 
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FF (M)=(F (MI) +10*F (M))/12 

T1=DZ*2 

DFF (1) =FF (2) /DZ 

pO 4 K=2,M 

DEF (K) = (F (K#1) =F (K=1)) /T1 

CONTINUE 

DFF (M1) =-FF (M) /DZ 

RETURN 

END 

SUBROUTINE TRIDT(A,B,C,D,FF) 

DOUBLE PRECISION A(41),B(41),C (41) ,D(41) ,F (41) 
1 ,FF(41),BP (41) ,0(41) ,H (41) 

COMMON M,MI,M1 

BP (1) =C (1) /B(1) 

0 (1) =D (1) 78 (4) 

DO 1 K=2,m" 

H (K) =B (K)—A (K) *BP (K-1) 

BP (K) =C (K) /H(K) 

Q (K) =(D (K) ~A(K) *9 (K~1) ) /H (K) 

CONTINUE 

F (M1) =(0 (M1) —A (M1) *Q (M) ) 7 (B (1) ~A (M1) *BP (8) ) 
DO 2 KK=1,M 

K=M1=KK 

F (K) =Q (K) ~BP (K) *F (K+1) 

CONTINUE 

DO 3 K=2,_™ 

FF (K)=(F (K-1) +10. DO*F (K) +F (K#1)) /12 
CONTINUE 

RETURN 

END 

SUBROUTINE PENTAD(A,B,C,D,E,F,WN) 

DOUBLE PRECISION A(41),B (41) ,C (41) ,D(41) ,E(41),F (41), 
1 ¥ (41) ,WN(41) ,OMGA (41) ,BETA (41) ,GAMM (41) ,H (41) ,DELT (41) 
COMMON M,MI,M1 

OMGA(1) =C(1) 

BETA (1) =D (1) /OMGA (1) 

GAMM (1) =E (1) /OMGA (1) 

DELT (2) =B (2) 

OMGA (2) =C(2)—DELT (2) *BETA (1) 

BETA (2) = (D (2) ~DELT (2) *GAMM (1) ) /OMGA (2) 

GAMM (2) =E (2) /OMGA (2) 

DO 10 N=3,M1 

DELT (N) =B (N) ~A (N) *BETA (N-2) 

OMGA (N) =C (N)~A (N) ¥GAMM (N~2) ~DELT (N) *BETA (N~1) 
BETA (N) =(D(N) ~DELT (N) *GAMM (N= 1) ) /ONGA (N) 
GAMM (N) =E(N) /OMGA (N) 

BETA (M1)=0.D0 

GAMM (M1) =0.D0 
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GAMM (M)=0.D0 

H (1) =F (1) /OMGA (1) 

H (2) =(F (2) “DELT (2) *H (1) ) /OMGA (2) 

DO 20 N=3,M1 

H (N) = (F (N) -A (N) *8 (N= 2) -DELT (N) *H (N=1) ) /OMGA (N) 
Y (M1) =H (™1) 

Y (M) =H (M) =BETA (M) *¥ (™1) 

DO 30 KK=1,MI 

I=M=KK 

¥ (I) =H (I)~BETA (I) *¥ (1+14) -GAMM (I) *¥ (I+2) 

WN (2) = (S6*Y (1) +247*Y (2) +56*Y (3) +¥ (4)) /360 

DO 40 K=3,MI 

WN (K) = (¥ (K-2) +56*Y (K-1) #246¥*Y (K) +56¥*Y (K+1) +¥ (K+2)) /360 
CONTINUE 

WN (M) = (¥ (M-2) +56*Y (MI) #24 7%Y (M) +56*Y (M1) ) 7360 
RETURN 

END 
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COMPUTER PROGRAM FOR CHAPTER VI 


PROGRAM FOR CALCULATING EVEN EIGENVALUES 


IMPLICIT REAL*8 (A-Hs0-Z) 


DIMENSION EN(16.201) sDEN(165201).8E(16) »B8U(401) 


EPS1=0.1D-6 
IMAX=15 
KE=201 
KE2=401 
DZ=0.-005 
DZ2=DZ*DZ*0.5 


HA=C0-% 

WRITE (62962) HA 

READ (5250) (BE(N)»N=12N1) 
FORMAT (8D10-3) 

PE2=PE*xPE 

TI=HA/( HAXDCOSH(HA) —DSINH( HA) ) 
DO 10 K=1,KE2 

Z=DZ*0.2.5%(K-1) 

BULK )=T1*(DCOSH(HA ) ~DCOSH(HA*Z)) 
WRITE (6,60) (BUCK) »K=15KE2:10) 
DO 14 N=1,NI1 

L=0 

L=L+1 

IF ({tleGTeIMAX) GO 7D LT 
TIO=BE(N) **2/PE2 

EN(Ns1)=1- 

DEN(Ns1 )=O06 

I=1 

DO 13 K=2sKE 

TI=ENCNsK-1 ) 

T2=DEN(NsK—-1)*DZ 

T3=-( BE (N) *BUC TL) 4710 )*T1*DZ2 
I=I+1 

T4=T140.5*T240225*T3 
T5=-(BE(N) *B8U( 1) 4T10 )*T4*DZ2 
I=I+t1 

T4=T1t+T24+TS 

T6=~ (BE (N) BUC L)+T10 )*T4*DZ2 
T7=(T3+2*TS)/30 
T8=(T34+4*T54+TH) /36 
EN(NsK)=T14+T2+T7 

DEN(NosK )=(T24+T8)702Z 

CONTINUE 

ERR=EN( Ns KE) 

lee (DABS(ERR) eLEeEPS1) GO TO 17 
IF (L-2) 15216016 
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ERI=ERR 

GU1=BECN) 
BEC(N)=BE(N) 40.002 
60 T6012 
GU2=BECN) 


BE (N)=BE(N)-ERR*(GU2-GU1)/(TERR-ER1) 


GU1=GU2 

ER1=ERR 

GO TO 12 

CONT INVE 

WRITE (6261) L,BE(N) 

WRITE (64360) CEN(ONsK )sK=1.KE) 
WRITE (6,60) (DEN(N».K).K=15KE) 
WRITE (7270) CENCN>sK )esK=1+5KE210) 
WRITE (73:70) (DEN(NsK) sK=1 2KE210) 
CONTINUE 

WRITE (7270) (BEC(N)+,N=1.N1) 
CONTINVE 

FORMAT (8D16+27) 


FORMAT (90%, *I1TE=" 913s5Xs*EIGENVALUE=* sD20212) 
FORMAT (*1%s *HARTMANN NOe=*5D1023) 


FORMAT (501609) 
ST OP 
END 


PROGRAM FOR CALCULATING ODD EIGENVALUES 


IMPLICIT REAL*8 (A-Hs0-Z) 


DIMENSION ON(164201 ) »DON( 15s 201)+GA(16)5BU(401) 


EPS1=0-1D-6 
IMAX=15 
KE=201 
KE2=401 
DZ=0.-005 
DZ2=DZ*DZ*0e5 


PE=0.e1D+435 

READ (5550) (GA(N) »sN=15N1) 
FORMAT (8D10+23) 

WRITE (63:62) HA 

PE 2=PE*PE 

TI=HA/( HAXDCOSH(HA) —DSINH(HA) ) 
DO 10 K=1,KE2 

Z=DZ*0.5*(K~-1) 

BUCK )=T1* (DCOSH(HA ) ~DCOSHCHA*Z)) 
WRITE (6260) (BUCK) »K=1sKE2s10) 
DO 14 N=1,N1 

L=0 
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L=L+1 

IF {i eGTeIMAX) GO TC 17 
TIO=GA(N)**2/PE2 

ON(Ns1)=0-4 

DON(Ns1 )=1e 

I=1 

DO 13 K=2sKE 

TI=ON(NsK-1) 

T2=DON{Ne2K—-1) *DZ 
T3=-(GA(N )*¥BU( 1)4T10 )*T1*DZ2 
I=1+1 

T4=7T14025*T24+0225*T3 
T5=-—(GA(N) *BU( 1) 4710 )*T4*DZ2 
1=1+1 

F4=T1itT2+7T5 

T6=-(GAC(N )*BUC1T)4T10 90¥*T4*DZ2 
T7=(T3t2*T5)730 
T8=(7T34+4*T5+T6) 7/3. 

OGN(NeK) =T14+T24+T7 

DONCNsK )=(T24+T8)70Z 

CONTINUE 

ERR=ON{NsKE) 

IF (DABS(ERR).~LE*eEPS1) GO TO 17 
IF (1-2) 152916316 

ER1=ERR 

GU1=GA(N) 

GACN)=GA(N) 402002 

GD TO 12 

GU2=GACN) 
GACN)=GA(N)-ERR*( GU2—-GU1 JT ERR-ER1) 
GU1=GVU2 

ERI=ERR 

GO TO 12 

CONTINUE 

WRITE (6361) L»sGA{(N) 

WRITE (6260) (ON(NoK)sK=1,+KE) 
WRITE (6260) (DON(N sK) »K=1 KE) 
WRITE (7270) ( ON(NoK )aK=1sKE510) 
WRITE (7279) (DONC(N » K) »K=1 KE 310) 
CONT INVE 

WRITE (7270) (GACN) »N=15N1) 
CONTINUE 

FORMAT (8D16.07) 

FORMAT (501629) 


FORMAT (90%, *1TE="51395Xs*EIGENVALUE=' sD20212) 


FORMAT (81%, *HARTMANN NOo='sD1023) 
STOP 
END 
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PROGRAM FOR CALCULATING THE COEFFICIENTS OF SERIES 

IMPLICIT REAL*8 (A-H»O-W) 

DIMENSIGN BE(12)+%GA(12)sEN(12,5 201 ),0N(125201) 
»sDEN€ 125201) 2.DON(12+201).TF(201)28U(401) 
9E0(12912)3A(144).RH(12)5X(203)Y(203) 

o THT( 202201) s THB( 20.201) 2 TNU(20),BNU(20),TBM(20) 
eCE(€12) 2CO(12)sAM( 201) »B8M(201)5ZT( 205201) sAXK( 20) 


mm Why ~ 


CALL PLOTS 
CALL PLOT(20es22es-3) 
PE=100.6 
N1=6 

HA=0. 
IX1=20 
THE=1le 
EK=1.2D0 
N12=N1*2 
KE=201 
KE2=401 
PE2=PE*PE 
DZ=0.2005 


Ni= NO. OF EIGENVALUES 

KE= NOe OF MESH POINTS 

IX1=NG. OF POINTS ALONG THE X-AXIS 
EK=1 FOR THE CASE OF OPEN CIRCUIT 


READ (525) (CAX(1)sT=1s1X1) 
S FORMAT (8D10.3) 


READ IN EIGENVALUES 
READ (5399) (BE(N)»sN=15N1) 
READ (5599) (GA(N)»N=15N1) 
CALCULATE THE BASIC VELOCITY PROFILE 
DO 10 K=1sKE2 
AZ=DZ*025*(K-1) 
10 BUC(K)=1.5*(1.e-AZ*AZ) 
WRITE (6261) 
WRITE (6560) (BUCK) »K=15KE2s10) 


CALCULATE THE EIGENFUNCTIONS 
DZ2=DZ*DZ*005 
DO 11 N=1,N1 
T1O=BE(N) **2/PE2 
EN(Ne1l)=1le 
DENINs1)=06 
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t=1 

DO 11 K=2sKE 

TI=ENCNeK—1) 
T2=DEN(NaK-1)*DZ 

T3=-(BE(N) *BUCT)4T10 )*T1*DZ2 
I=1+1 

T4=T14025*T24+0 -25%*T3 

T5=- (BE (N)*BU1T)4+T10 )*T4*DZ2 
I=I+1 

T4=T1+4+T2+T5S 

T6=- (BE (CN) *BUCI)4+T109*T4*DZ2 
T7=(T34+2*T5)/30 

T8=( T3t+4*T5+T6)/3- 
EN(NsK)=T14+T2+T7 

DEN Ne K J=(T24+T8)70Z2 
CONTINUE 

DOGO 12 N=1,N1 
T1IO=GAUN)**2/PE2 

ON(Ns1)=Ce 

DON(Ns1i1)=1le 

I=1 

DO 12 K=2sKE 

T1I1=ON(N2K-1) 
T2=DON(NaK-1)9*DZ 
T3=-(GA(N)*BUCT)4+T10)*T1*DZ2 
I=1I+1 

T4=T1402e5*T240 . 25*T3 
T5=-(GA(N) *BUC 1) 4+T10 )*T4*DZ2 
I=I+41 

T4=Tl4+T24TS 
T6=-(GA(N)*BU( 1) 4T10 )*T4*DZ2 
T7=( T34+2*TS)/3 

T8B=( T3+44XTS+TO)/3¢ 
ON(NsK)=T14+T24+T7 
DON(NsK)=(T24T8)70Z 

CONTINUE 


WRITE (6566) 
WRITE (6269) (BE(N) sh=15N1) 
WRITE 46360) (GA(N)sN=15N1) 
WRITE (6:68) 
DO 97 N=1eN1 


WRITE 16,260) (ENN sK)2K=1 »KE,10) 


WRITE (6569) 
DO 96 N=1eN1 


WRITE (6360) (ON(N 9K ) 2 K=1 sKE210) 


TF=THETA E-BR*(---) 
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BR=—-1. 

WRITE (6»s72) BR 

DO 17 L=15KE 

AZ=DZ*({(L-1) 

TF (LJ=THE—-O «6 75¥*BR¥( 1 e- AZ**4 ) 


CALCULATE THE SERIES COEFFICIENTS 


is 


14 


is 
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DO 15 M=1,N1 

N=M—-1 

N=N+1 

DO 14 L=1+5KE 
AM(L)=EN(NeL)*ENC(MsL ) 
CALL DQSF (DZsAMsBM,s KE) 
EQ(MsN)=BM(KE) 
EOQ(NsM)=BM(KE) 

IF ({NeLTeN1) GO TO 13 
CONTINUE 

1=9 

DO 16 N=1.N1 

DO 16 M=1sN1 

L=L+1 

A(L)=EOCMsN) 


DO 18 N=1.Ni1 

DO 19 L=1+KE 
AM(LI=TF(L)I*ENCNSL) 
CALL DQSF (DZsAMsBMs KE) 
RH(N)=BMC(KE) 

CONT INVE 

XEPS=00e1E-5 

CALL DGELG(RH»sAsN1o1 »XEPSsTER) 
WRITE (6,65) IER 

DO 20 N=1.,N1 

CE (N)=RHON) 


DO 23 M=1.N1 

N=M-1 

N=N+1 

DO 22 L=1+5KE 
AM(L)=ON(NoL) ¥ON(MoL ) 
CALL DQSF(DZsAMs8M+s KE) 
EO0(MsN)=BM(KE) 
EQ(NsM)=BM(KE) 

IF (NeLTeN1) GO TO 21 
CONTINUE 

L=0 

DO 24 N=1>N1 

DO 24 M=1,.N1 

L=L+1 
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A(L)=EO(M.N) 

DO 25 N=1,N1 

DG 26 L=1,KE 
AZ=DZ*(L-1) 

AM(L )=—-AZ*ON(NoL) 

CALL DQSF (DZ,AMsBM,sKE) 
RHUN)=BM{(KE) 

CONTINUE 

CALL DGELG(RHsAsN191 sXEPSs IER) 
WRITE (6,65) IER 

DO 27 N=1+5N1 
COCN)=RHIN) 


WRITE (7299) (CE(N)+N=15N1) 
WRITE (7399) (CO(N)»N=12N1) 
WRITE (6571) 

WRITE (6,60) (TF(K) sK=1,KE510) 


READ (53,939) (CE{(N) »N=1.N1) 

READ (5399) (CGO(N)»sN=15N1) 

WRITE (63:67) 

WRITE (6260) (CE(N) »sN=1.N1) 
WRITE 16360) (CO{N) »N=1,N1) 


CALCULATE THE BASIC TEMPERATURE PROFILE 
CALCULATE THE BULK MEAN TEMPERATURE AND NUSSELT NUMBER 
T5=THE DERIVATIVE OF FULLY DEVELOPED TEMPe WeReTe Z AT Z=1 


30 


T5=3-*BR 


DG 29 I=1sIX1 

T3=1.-T5 

T4=12-+T5S 

DO 28 L=1+4KE 

THTC(I»sLI=06 

THB( I sL)=050 

AM(L)=O06 

AZ=O0Z*(tL—-1) 

DO 30 N=1,N1 

TI=CE(N) XEN(NoL) XDEXP(-BE(N) *¥AX(T)) 
T2=CO{(N) ¥ON(NoL) ¥DEXP(—GAC(N)*AX(T)) 
THT (Lok JD=THTC1I,L)4+T14T2 

THB( 1sL)=THB(1IsL)+T1-T2 
AM(L)=AM(L)4T1 

CONTINUE 

THT (I eLI=THTC1eL)+THE-TFCL D+AZ 

THB( Isl )=THB( I oL)+THE-TFIL I—AZ 
K=L*2—1 

AM(L)=CAM(L) +THE-TF CL) ) *BUCK) 
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CONTINVE 

CALL DOQSF (DZsAM+,BM,KE) 

TBM(C1I)=BM(KE) 

DD 3i N=1sNi 

TI=CE CN) *¥DEN(N SKE) *¥DEXP( -BE(N) *AX(1)) 
T2=CO(N) ¥DON( Ns KE) ¥DEXP(—GA(N )*AX(T)) 
FS3H=TStT t47zZ 

T4=T4-T1+T2 

CONTINUE 

TNUCT)=T3/(1-2-TBM(1I)) 
BNUCI)=T4/(1-+4+TBM(1)) 

WRITE (6264) AX@1)5TBMC I) sTNUCI)»s BNUCTI) 
CONTINUE 

WRITE (7570) (TBMCI) »l=1.s1X1) 

WRITE (7270) CTNUCI) sf=15I1X1) 

WRITE (7270) (BNU(T) oI=1s5I1X1) 

FORMAT (7011.4) 

WRITE (6,63) 

DO 39 I=1,I1X1 

WRITE (6362) AX(T) 

WRITE (6260) CTHTCI oL) sL=12KE.190) 
WRITE (6360) (THB(I.L) »sL=1+KE,10) 
CONTINUE 


DG 40 K=1,4201 

X(K)=DZ*(K-1) 

X{202)=0-2 

CALL AX1S(O 0 ee 02 Z* 9-19509009X( 202) 2 X( 203) 9204) 

DO 43 1=1+20s2 

DO 43 K=15101 

J=(101-K )*2+1 

J1=(K-1)*2+1 

ZT(1 eK) H=11-e-THBUI 5 J) )¥*005 

ZTC1oK4+100) =€1 o- THT (15519) #025 

CONTINUE 

Y¥(202)=0-6 

Y(203)=0-42 

CALk AX1S(00s00es" TEMPERATURE PROF ILE* 1998+ 
2900s Y(202) 5Y( 203) 2202) 

DO 42 1=152022 

DO 41 K=1.201 

Y(K)=ZTC1I+K) 

CALL FL INE(CXsY2—-201 912050) 

CONTINUE 

CONTINUE 

CALL PLOT(O. 2022999) 
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FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 


(8D1626) 

(*O0*,.*BASIC VELOCITY PROFILE*) 

(#0*,*AXIAL POSITION AT*,D10.3) 
(*O*,*BASIC TEMPERATURE PROFILE®) 

(90% 5 *AX=" ,D100397Xs *TBM=* .D14e795Xs * TNU=* 


9D14.635X»s *BNU=! .D1406) 


FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
STOP 
END 


(*0*.,*IER=",13) 
(*0*,*ETGENVALUES®* ) 

(*0*,* THE COEFFICIENTS OF SERIES*) 
(*0%,* EVEN EITGENFUNCTIONS® ) 
(*0*%,*00D EI GENFUNCTION® ) 

€*O%. *THEATER E£ = SR*(—-——) *} 
(*1%,*BRINKMAN NOe=*.D1023) 

(70%, *HARTMANN NOe="* 201003) 
(5D16.9) 
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4a.6108) 

(*3.119089 YTIDSOFIV DI@AGS, 9") 

CheOTG,*TA HOIVIZ09 jADRA% *0°) 

(*3J1 39089 BAYTANIAMTT DIZAGFs *O* Dd 

aU T* MG eT eB 1s CaMmeT® - XV cE cO 0Ge *eNe ts *O*) 
COePt Oe 


‘ ween = yp 

(*2 au save moda. to" 
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( temo IT wy wets 


(*(---)*808 + 8 
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C READ IN THE BASIC FLOW SCLUTION 


Gh = 


COMPUTER PROGRAM FOR CHAPTER VII 


PROGRAM FOR CALCULATING TTHE STABILITY PROBLEM 


IMPLICIT REAL*8 (A-H,O-Y) 
DIMENSION BE(12)+GA(12)sEN(12s21)50N( 12921) »«DEN( 12921) 
sCE(12)2CO(12) »UB( 41) .DU041) »PTX(41 )sPTZ(41)+.CRA(200) 


9A3(41) 2083041) C341) .A5(41) »B5(41) C5(41).05(41) 
0 W(41)sWN(41) »TH(41).PU(041) 5PD(41).AU(41) »BU041) 


hal 


»DFD(41)sYAR(40) 5 DONC 12s 21) 5AX( 20) sE5(41)5BX(41) »sRH( 41) 
COMMON MosMIsMi1 


PE=106 
HA=106 
N1=8 
AX(1)=106 
THE=1. 
EK=1. 
IMAX=25 
EPS=0e1D-5 


PE2=PE*PE 
HA2=HA* HA 
M=40 
MI=M—-1 . 
Mi=M+1 
DZ=16«/M 
DZ2=DZ2*DZ 
DZ4=DZ2*DZ2 
KE=21 
w{1)=O064 
WNC1)=O064 
TH(1)=O06 
PU(1)=06 
PD(1)=0+6 
BX(1)=06 
w(M1)=0-. 
WN(M1)=0O+ 
TH(M1)=06 
PU(M1)=0+ 
PD{M1)=06 
BX(M1)=O6« 


READ (599) 
READ (5599) 
DO 10 N=1.N1 


(BECN) » N=1eN1) 
(GA(N)sN=1sN1) 


5 
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UIIGOAG VIPITGATS ATT OHETAIUISAD HOT MARDOR 
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15 


UB 
DU 
DDU 
DFD 


READ (S299) 
READ (5299) 
CONTINUE 


DO 11 


N=1sN1 


READ (5399) 
READ (5399) 
CONTINUE 

WRITE OUT ALL DATA 


WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
50 i2 
WRITE 
WRITE 
DO 14 
WRITE 
WRITE 
DO 13 
WRITE 
WRITE 
DO 15 
WRITE 


BR=le 


(6,61) 
(63:60) 
(6262) 
(6260) 
(6,65) 

=13Ni 
(6260) 
(6,66) 
N=1,N1 
(6360) 
(6367) 
N=1sNi 
(6.60) 
(6368) 
N=1.N1 
(6:60) 


(EN(N 2K) »K=1 KE) 
(DENCN SK )sK=15KE) 


(ONINSK) sK=1 KE) 
(DON(N 2K )sK=19KE) 


(BEC(N) »N=15N1) 


(GA(N) »N=15N1) 


(ENCN ok )sK=19KE) 


(ON(N»sK )oK=15KE) 


(DENCN 9K) sK=1 sKE) 


(DON(N 5K) sK=1+KE) 


DO 101 IBR=1.2 
BR=BR-1. 
WRITE (6,80) BR 
READ (5399) 
READ (52999) 


WRITE 


(6563) 


(CE(N) »N=15N1) 
(CO(N)»eN=15N1) 


WRITE (6260) {CE(N) »N=14N1) 


WRITE 
WRITE 


(65,64) 
(6260) 


(COCN) »N=15N1) 


IF (IBReEGe1) GO TO 101 


= THE SASIC VELOCITY 


= THE DERIVATIVES OF U 


= THE SECOND DERIVATIVES OF U 
= THE DERIVATIVES OF THE FULLY DEVELOPED TEMP. PROFILE 


CU=HA/(HA*DCOSH(HA)—DOSINHCHA)) 
CU2=CU*CU 
C1=EK-CU*DCOSHCHA) 
C12=C1*Cl 


T1=—-26* CUXHA 


DO 16 K=15Ml1 
AZ=HA*( 20*DZ*(K—-1)—1 6) 


PROFILE OF U X-COMPONENT 
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16 


4az 


UB CK )=CU* (DCOSH{( HA )-DCOSH(AZ)) 

DUCK )=T1*DSINH( AZ) 

DFOCK )= 1 e—-BR*¥HA*(CU2 *DS INH(AZ¥*2) *0 054+2¢*CU 
*C1*DSIN(AZ)4C12*AZ) 

CONTINUE 

WRITE (6275) 

WRITE (6260) (UB(K) »K=1.M1) 

WRITE 16:69) 

WRITE (6260) (DUCK) »K=15M1) 

WRITE (6560) (DFD(K) sK=1.M1) 


DEFINE THE INITIAL VALUES OF WwW 


2% 


DO 21 K=25M 
T1i=3.2.14159*(K-1)/M 
w(K)=DSINH(T1) 
CONT INVE 


L=1 
WRITE (6970) AX{L) 


CALCULATE THE TEMPERATURE GRADIENT OF BASIC FLOW 


17 


18 


19 


20 


41 


DO 20 K=1.Ml1 

PTX(K)=Ce 

PTZ{K)=0. 

DO 19 N=1>5N1 

TI=CE(N) *DEXP(-BE(N) *AX(L)) 

T2=CO(N) *¥DEXP(—-GA(N) *AX(L)) 

IF (K=KE) 17217218 

KI=KE-K+#1 

PTX(K)=PTX(K )-BECN) KEN( No KI) ®T1#+GACN) XON(N SKID *T2 
PTZ(K)=PTZ(K)-DEN(N2 KI) *T1+DON(NSKID*T2 

GO TO 19 

KI=K-KE +1 

PT X(K)=PTX(K)-BECN) XENON SKI) ¥TI-GA(N)*ONONSKID¥T2 
PTZ(K)=PTZ(KI#DEN(N s KI) *TIFDONONS KID ¥T2 

CONTINUE 

PT X(KI=—PTX(K) 

PTZ(K)=—PTZ(K)-DFD(K) 

CONTINUE 


WRITE (6271) 
WRITE (6360) (PTX(K) sK=1M1) 
WRITE (6578) 
WRITE (6260) (PTZ(K) sK=15M1) 


IPR=0 

PR=0.01 

IPR=IPR1 

IF (CIPReGE-3) GO TO 101 


( CS AIHMZODI~CAMIHEOI0) FUde EY ; 

(SA HMI 208 1 T=¢a00 : 

UD. S42. 08 (SORA HU! COP SUD FAHERE—. Pet ) 
(SAPSIDOCSAIMMIAOFTD* = 6f 

. sunrtwon 6 6OFllU 

 £8%e0d BPtew 

(1m, tome OUD sete st 


ee es i 


2 
CAPRA (90 OOD 
wO4d9 D12R@ 20 THOPOAHO BRUTARESNST GMP BTAsVOUAD 2 
mes Of OC | 
2 eta rKae 
Ct sven 
va 


sree Lede On DADOE TEER He CH EROeR TORRENTS 


stet ee ee en 


ST#el LA eMIMOP (MH PAD ETO E Per eRe 
ST* (LAM MOGs TOE THe 


hoy 


EC=BR/PR 
RA=1000. 
WA=1.28 

0G 100 IwW=1,290 
WA=WAt+0 22 
wA2=WwAx*WA 


KX1l=DZ2*( WA24+4.*HA2Z)/ 120 
X2=DZ2*WA2/126 
X3=DZ2* (WA24+22*HAZ)/ E20 
X4=DZ4*WA2Q*WAL/S3IE0N» 
UC(2)=14-X1l 
BU(2)=—-22-102*X1 
C3(1)=064 

A3(2)=14-X2 
B3(2)=-22-10e*X2 
C3(2)=A3(2) 
Ti=16—-X3+xX4 

T2=—- 4 0 — Ba XX 3456 2 KX4 
T3=6 0t1 Be XX3B4+2460*X4 
A5(11)=0-64 

BS5(1)=0-6 
C541)=-246-*T1+T3 
D5(1)=-1122*T14+2e*T2 
E5(1)=0.- 

B5(2)=T2 
C5(2)=T1+T3 

DS5(2)=T2 

E5(2)=T1 

DO 23 K=35M 
AUCK)=UC(2) 
BU(K)=BUC2) 
uc({K)=UC(2) 
A3(K)=A3(2) 
B3(K)=B3(2) 
C3(K)=A302) 

AS(K)=T1 

BS(K)=T2 

C5(K)=T3 

DS(K)=T2 

ES(K)=T1 

CONTINUE 

UC(M)=0-6 

A3(M1)=O06 
B3(M1)=—-12.6 
C3(M1)=06 


Cc 


Cc 


42s 


C5(M)=CS(M)+ES5(M) 
ES(M)=06 
AS(M1)=O0-4 
B5(M1)=D5(1) 
C5(M1)=C5(1) 
DS5(M1)=0-6 
ES5(M1)=0-64 


IT=0 
START ITERATION 
25 IT=iT+l 
IF (1Te¢GTeIMAX) GO TC 1000 
DO 26 K=2oM 
26 RHC K)=DZ2*20*DU(K) *W IK) 
CALL TRID(AUs BUsUC sRHsDZ »PUsPD) 


DO 27 K=1,M1 

27 RH(CK)=DZ2*( (PUK) SPR¥PTX(K) WOK) XPTOCK)) *264EC 
1 *(DU( K) *PD CK )—4. *HA2* (EK-UB(K) )*PUCK))) 
CALL TRIDTB(A35834C3 »RHsTH) 


DG 28 K=1.Ml1 
28 RH(K )=4 6 *¥DZ4 *WA2*RAXTH(K) 
CALE PE NTAD(A52B5,C5 2D5 29ESsRHeWN) 


CALCULATE THE NEW RA ANO CHECK THE CONVERGENCE 
Ti=0. 
T2=08 
DO 24 K=15Ml1 
T1=T1+wWw (kK) **2 
24 T2=T2+wNl(K)**2 
RAN=RA*DSQRT(T1/T2) 
T1=0.6 
T2=O064 
DO 30 K=1.M1 
T1=T1+DABS(WN(K)—-WCK)) 
30 T2=T2+DABS(WN(K)) 
ERR=T1I/T2 
IF (ERReLEeEPS) GO TO 1000 
ADJUST W AND RA 
DO 31 K=1.sMl1 
ai W(K)=WN(K) *RAN/RA 
RA=RAN 
60 TO 25 


1000 CONTINUE 


WRITE (6372) ITsWA »RANSERR 
YAR(IW)=RA 


mm, fa +s 00 
oy nermnrtnremean eee, v8 


(et apueese | a 


100 


10 


20 
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CONTINUE 
WRITE (7399) CYAR(K) sK=1,29) 


WRITE (6374) 


PE »HA sBR»sPR»THE 


PR=0-7 

GO TO 41 

CONTINUE 

FORMAT (501629) 

FORMAT (8D16.7) 

FORMAT (*#0*#,*EVENEI GENVALUES® ) 

FORMAT ('0%,70DD EIGENVALUES® ) 

FORMAT (*'0*,*THE COEFF. OF EVEN SERIES* ) 

FORMAT (40%,*THE COEFF. OF ODD SERIES*) 

FORMAT {*0*%,*EVEN EI GENFUNCTIONS® ) 

FORMAT (*0%,*0DD EIGENFUNCTIONS® ) 

FORMAT ('C*,*DERIVATIVES OF EVEN EIGENFUNCTIONS®*) 
FORMAT (10*%,"DERIVATIVES OF ODD EIGENFUNCTIONS® ) 
FORMAT (*70*%,*DERIVATIVES OF VELOCITY PROF ILE*) 
FORMAT (40%, *AXIAL POSITION AT* D124) 

FORMAT (*0*%,*THE PARTIAL DER. OF TEMP. WeReTeo X*) 
FORMAT (10% s%1T="%s13s5Xe*WAVE NOo=*sD120e595Xe 


1 RAYLEIGH NOe* 2014 0795Xs *ERROR® sD1265) 


FORMAT 
FORMAT 


€'0O%,"* THE AMPLITUDE OF DISTURBANCES ) 
(904 9*®PE=" .D100395Xs THA=" 9 D100395Xs*BR=" 5 


1 D100325%Xs*PR=* 5D10 0395Xs *THE=" 201003) 


FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
STOP 
END 


(*0%,*THE BASIC VELOCITY PROFILE OF U®*) 
(90%, *THE SECOND DERIVATIVES OF U*) 
(°0%, "THE PARTIAL DER» OF TEMP. WeReTe 
(*1%, *HARTMANN NOo=*»D1023) 
(*0%,*BRIBNKMAN NOs="sD1023) 

(6E125) 


z*} 


SUBROUTINE TRID(AsB sCoDsDZsFFePD) 

IMPLICIT REAL*8 (A-H»0-Z) 

DIMENSTCN A(41)sB(41 )2C(41) sD 41)5F (41) sFF(41) > 
1 BP(41).,Q(041)5H(41)sPD(041) 


COMMON 


MaMIoM1 


BP (2)=C(2)78(2) 

Q(2)=D(2)7B(2) 

DO 10 K=3.MI 

H(K)=B(K)I—-A(K)*BP(K—-1) 

BP (K)=C(KISH(K) 

Q(KI=(D 1K )-ACK )¥QC K-10) 7HCK) 
F(M)=(D(M)-ACM) *Q(M1 970 B0M)-ACM) *BPUMI)) 
DO 20 KK=2.MI 


K=M1—-KK 


F(K)=Q(K)-BP(K) *F(K4+1) 


| auUMETHOD OO! - 
(9S _ 1taMe CADRAYD CO0.3) BTPRe 
BHT PO oe Me Abe BF §€65e0) BTIGW 


od 
- 
~ 


(*2n9eve wove H «ao 
. ¢*2ataae OG W «WROD 


(* eTeReW o@ORT » .ane SADT RAO BHT, 
NO eBeSIGe ee SVAN oe Edy *e 

(2 eSiOe *ROMMHt Recto He Pe tet MORBIVART 6 

(<2 .VABAYTIZIG B FUTL SAMA BHT*. *O*) Tames 

+ OG 8 oe Me be O 8s MOR RR eheP PGs =, 

TAMRD® 


S458 85 Baasesessseses 


30 


40 


i 


i 
2 


FF (2)=(10*F(2)4F(3))/126 

DOG 30 K=3.MI 

FF (K)=(C FC K—-1)410*F (K )4F(K41))712- 

FF(M)=(FUMI)410*F(M) 4126 

F(1)=06 

F(M1)=0. 

PD{1)=F(2)70Z 

DO 40 K=25M 

PD{K )=C FC K41)-F (K-1) )7002Z*2) 

PD(M1 )=—-F(M) 7D0Z 

RETURN 

END 

SUBROUTINE TRIDTB(A sBeC »DeFF ) 

DOUBLE PRECISION A(41)+8(41)0C(41).D041)sF(41)5 
FF (41),.8P(041)5,0(41),H(41) 

COMMON MsMI4M™1 

BP(1)=C(1)9/7B01) 

@(1)=0(1)781) 

DO 1 K=2s™M 

H(K)=B(K)—-ALK) *BP(K—-1) 

BP(KI=CUKISHIK) 

Q(K)=(D (KI—-ACK ) XQCK=—1)) HOEK) 

CONTINUE 

F (M1 )=(D(M1)-A( M1) *Q CM) 2 70B0M1)-ACM1) *BP(M) ) 

DO 2 KK=1oM 

K=M1—-KK 

F(K)=Q(K)—-BPCK) *FCK4+1) 

CONTINUE 

DO 3 K=2sM 

FF (K)=CFCK—1)410*F (K 4FCK4F1)9712 

CONTINUE 

RETURN 

END 

SUBROUT INE PENTAD(A2BeCeoDsE sF os WN) 

IMPLICIT REAL*8 (A-H»0-Z) 

DIMENSION A(41).8(41 )sC(41)50(41),E041) sF(41) 


»PDD(41)5V(41) e041) sDELT(41 ) sOMGA(41)5GAMM(41) 


»WN(41).P0(41),8ETA(41) 
COMMON MsMI»M1 
OMGA(1)=C(1) 
BETA(1)=D(1)/0MGA(1) 
GAMM(1)=E(1)/70MGA(1) 
DELT(2)=B8(2) 
OMGA(2)=C(2)-DELT(2) *BETA(1) 
BETA(2)=(DC2)-DELT( 2 )*GAMM(1)) ZOMGAC2 ) 
GAMM(2)=E(2)/0MGA(2) 
DO 10 N=3sMl1 
DELT(N) =B(N) —A(N) *BE TAC N=2) 


427 


o SINC HE BURKE ODS Jeeta is 
» ete” OC OO . 
ciees onpncd ne nebbesbensaaeeneat oe 
«SINC CMD REO DST IMD DPCM TF 
wOeeeda 


ae 
nonmsans 


€ VieGe D 
eC LODT CLP DG ed BOD Met DORM ORE 


CLOe 4 COOP Bee 
CLOIMMADe (1D AOMOe EE 


10 


20 


30 


40 


428 


OMGA(N )=C(N) ACN) ®¥GAMMCN—2)-DELT(N) *BETACN-1) 
BETA(N) =(€D(CN)—-DELTCN)*XGAMM(N—-1))/O0MGA(N) 
GAMM(N)I=E(N) /OMGA(N ) 

BETA(M1 )=Ce 

GAMM{M1 )=06 

GAMM(M)=Ce 

H(1)=F01)/0MGA(1) 

H(2)=(F (2)-DELT(2) *H(1))/0MGAl2) 

DO 20 N=3.M1 

H{N)=CF (NJ) —ACN) *¥HON—2)-DELT(N) ¥HON—1 ) )/OMGAC(N) 
Y(M1)=HCM1) 

Y(M)=H(M)—-BETA(M)*Y(M1) 

DO 30 KK=1.MI 

I=M—KK 

YC I)=HCI)—BETAC I) *Y¥ C141) -GAMM( 1) *Y(1T+2) 
WN(2)=(56¥*Y01)4247*Y (2) 4+56*Y(3)4Y(4)) 7360 

DOGO 40 K=3sMI 

WN CK = CY (K-24 56*Y (K-19 +246 #9 (K 456% YCKE1) FYCK42) 7360 
CONTINUE 
WN(M)=CY(M—2)456*Y0M1I)4247*Y(M)456*¥V(M1)) 7360 
RETURN 

END 
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COMPUTER PROGRAM FOR CHAPTER VIII 


Cc PROGRAM FOR THE CASE OF A HORANZONTAL LAYER LIQUID WITH 
‘ MAXIMUM DENSITY INDUCED BY SURFACE TENSION € BUOYANCY 
C DECK FOR THE SURFACE TENSION EFFECTS 
C DECK FOR THE CASE OF GIVEN B TG FIND RA 
i 
IMPLICIT REAL*8(A—H»C-X) 
DIMENSION AW(101).8W(101).CW(101),0W(101),EW(101) 
d oWN(101)5ATC101) 5B8T(101) oCT(101)eTHC 101) oFZ(101)>» 
2 RH(101).wW1101)sCRA(100) 
Cc 
a PARAMETERS RAM1s RAN2eBs ANDAL MUST BE GIVEN 
c AL=B1IGT NOe AND B=MARANCONI NOs 
M=50 
M1i=M4+1 
MI=M-1 
DZ=120/M 
DZ2=DZ*DZ 
DZ4=DZ2*DZ2 
IMAX=25 
EPS=0.21D-5 
wW(1)=Ce. 
w(M1)=0O+6 
WN(1)=O0-6 
WN(M1)=0.6 
TH(1)=0-6 


C DEFINE INITIAL W 
DO 10 K=2sM 
A1L=K 
10 W(K)=2e*(1e-Al/M) 


B=106« 
RAM2=-C0 22 
RAM1=—-1 5 
DO 11 K=1M1 
AZ=DZ*(K-1) 
11 FZCK )=1 eOFRAML¥AZHRAM2ZFAZLZ¥EX2 
po 100 IL=1.5 
READ (56) AL »WAsRA 
6 FORMAT (010 e3sD1104sD1205) 
CL=DZ*AL/620 


wA2=WA* WA 


4Tiw O1UOI) SIYAS JATHOSMAROH A W B2AD BHT asd 
yuvayous 3 MOLeWaT 30e"Rve Ye GsDUaNE 
2t23938 “vopeneat 

An GME" Of @ wave 


(1OtdwSet Oh wet OOF 
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X 1=WA2*DZ2/6.0 
X2= (WA2*DZ 2) **2/360.0 
X¥3=X1/2.0 


T1=1.0-X4+X2 
T2=-4. 0-8. 0*K1456.0*X2 
T3=6.0418.0*X1+246.0*X2 
T4=1.0-xX3 
T5=-2.0-10.0*X3 


DO 12 K=2,™ 
AW (K)=T1 
BW (K) =T2 
CW (K)=T3 
DW (K) =T2 
EW (K)=T1 
AT (K)=T4 
BT (K) =T5 
CT (K)=T4 
CONTINUE 


AT (2)=0. 

AT (M1) =2.*T4/ (1. 04CL) 

BT (M1) =T5-10.0*CL*T4/ (1. 04+CL) 
CT (H1)=0. 


AW(1)=0. 

Bw (1)=0. 
CW(1)=264.*X1-240. 

DW (1) =96.*X1-120. 
EW(1)=0. 

AwW(2)=0. 

CW (2) =247.*X2417.*X 147. 
CW(M) =T3-T1 

DW (M) =T2-11./2.*71 

AW (M1) =0. 

BW (M1) =0. 

CW (M1) =13-11./2.*T2+62.*71 
pw(m1)=0. 

EW (™1)=9. 


C START ITERATION 


20 


IT=0 

IT=IT+1 

IF (IT.GT.IMAX) GO TO 1000 
DO 21 K=1,M1 
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RH (K) ==DZ2*W (K) 
CALL TRID(AT,BT,CT, RH,CL,TH, 4) 


CS=-12.0*DZ2*WA2*B*TH (M1) 


DO 22 K=1,M1 

RH (K) =DZ4*WA2*RA*FZ (K) *TH (K) 

RH (M) =BH(M) +CS*T1/48.0 

RH (M1) =RH (M1) +CS* (T2/48.-7./6.*T1) 
CALL PENTDA(AW,BW,CW,DW,EW, RH,CS,8N,M) 


A1=0.0 

A2=0. 

pO 23 K=1,m1 
A1=A44W (K) **2 
A2=A2+WN (K) ¥*2 
RAN=RA*DSORT (A1/A2) 


A1=0. 

A2=0. 

pO 24 K=1,™1 
A1=A1+DABS (WN (K)~W(K)) 
A2=A24DABS (WN (K) ) 
ERR=A1/A2 


IF (ERR-EPS) 1000,25,25 
CONTINUE 

DO 26 K=1,M1 

W (K) =WN (K) *RAN/RA 

RA=RAN 

GO TO 20 

CONTINUE 

WRITE (6,62) IT,WA,RA,ERR 
CONTINUE 

WRITE (6,61) B,AL,RAM1,RAM2 
WRITE (6,63) 


YMAX=0. 

DO 16 K=1,™1 
T1=DABS (WN (K) ) 

IF (T1.GT.YMAXK) YMAX=T1 
DO 17 K=1,M1 

WN (K) =WN (K) /YMAX 
YMAX=0. 

po 18 K=1,M1 
T1=DABS (TH (K)) 
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18 


19 


10 


20 
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IF @(T1e¢GT2eYMAX) YMAX=T1 

DO 19 K=1.M1 

THCUKJ=THCK) /SYMAX 

WRITE (6960) (WN(K) »K=1,M1) 
WRITE (6260) (TH{K) »K=1.M1) 
WRITE (7271) (CWNIK) »K=15M1) 
WRITE €7271) (THK) »K=15M1) 
FORMAT (11F7+4) 


CONTINUE 

FORMAT (6E£13-46) 

FORMAT (801526) 

FORMAT (*04%s*MARANGONI NOo=49D110495X%s *AL=*2D11043 5X0 
*RAM1I=# 9D1020395Xs* RAMZ2=" 301003) 

FORMAT (*0%s5*1T=* 913 s5Xe* WAVE NOe=*»D120535Xs 
*RAYLE IGH NO eo=* 0140725Xs "ERROR=",01326) 

FORMAT ©9088 5 9 KKK RH HH) 


STOP 

END 

SUBROUTINE PENTDA(A sBsCoDaEsF aCSs WNoM) 

IMPLICIT REAL*8 {(A-HsO-Z) 

DIMENSION A( 101) 280101)5C0101)20(101) sE(101) »F(101)>5 


1 WNC101 2s Y(101)9H(101)sDE( 101) .0M(101)+BE(101),GA(101) 


M1=M+41 

MI=M—-1 

OM(1)=C{1) 

BE(1)=0D(1)70M(1) 

GA(1 )=E(1)/0M(1) 

DE(2)=B(2) 
OM(2)=C(2)-DE(2)*BE( 1) 

BE (2)=(0(2)-DE(2)*GA(1))70M(2) 
GA(2)=E(2)70M(2) 

DO 10 N=35M1 

DE (N)=B(N)-ACN) ¥BECN—2) 

OMUN) =C(N)—-ACN) GAC N-2) -DE(N) ¥BECN-1) 
BE (N)=( DCN) —DECN)*GACN-1))70M0N) 
GACNI=ECN)ZOM(N) 

BE(M1)=O0-6 

GA(M1)=0-6 

GA(M)=0-6 

H(1)=F(1)70M(1) 

H(2)=(F (2)-DE(2)*HO1))70MC2) 

DO 20 N=35M1 

HON) =(F (N)—ACN) KHON 2)-DECN) #HON@1)) 70MON) 


IT=KAMY (KAMVeTOeiTD Wh OF 
Leeanieeanene @1 698 


sniaieueieamann 
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aan 
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YOM1)=HCM1) 
Y(M)=HIM)—BE(M)*Y(M1) 
DO 30 KK=1.,Mi 
I=M—-KK 
30 YC I )=HC1)-BEL1)*Y(141)9-GAC1)*Y( 142) 
WN (2)=(560¥CY(1)4Y03)) 4247 0*Y¥(02)4Y14) 1736020 
DO 40 K=3.MI 
40 WN CK IHC Y (K—-2) Y (K 42) 456 * CY (K-19 +¥ (CK 41) )4+246*Y0K) 73606 
WNOM)=CY (M2) £56 0 XY (MI) 42450 ¥Y¥ (MD 450 0 S*Y (M1LI-CS/480)736000 
RETURN 
END 
SUBROUTINE TRID( AB sCoDsCLoFF 2M) 
IMPLICIT REAL*8 (A-H.,0-Z) 
DIMENSICN A(101)+B(101)2C(101) 204101) oF (101),BP(101) 
i 2Q(101) sH(101).FF (101) 


M1i=M+1 
MI=M-1 
BP(2)=C12)7B02) 
Q@(2)=D12)/7B(2) 
DO 10 K=35M 
HC K)=B(K)—-A(K)*BPCK—-1) 
BP(KI=CUKISHTK) 
Q(K)=(DCK)—-A(K) QC K=—1)) HTK) 
10 CONTINUE . 
F(M1)=(D(M1)—-A(M1) *Q (M) 2 70B0M19-A(M1) *BP UM) ) 
DO 20 KK=25M 
K=M1—-KK +1 
F(K)=Q(K)-BP(K) *F(K+1) 
20 CONTINUE 
F(1)=0-6 
DO 30 K=25M 
FF (K )=(F (K-19 410 0¥*F (KI 4F (K41) 971220 
30 CONTINUE 
FF (M1 )=(F(M)450*F(M1))7(60¥%(104+CL)) 
RETURN 
END 


Se SE HEI SIGE AIG III IIa IR AIR Sa aE aE AIR A HI A I AH A 
DECK FOR THE SURFACE TENSION EFFECTS 
DECK FOR THE CASE OF GIVEN RA TO FIND THE 8G 


IMPLICIT REAL*8(A-H»sC-X) 
DIMENSION Aw(101)sB8W(101)eCW(101) »Ow(101),EW(101) 
1 SWNCLOL) sATC1O1) oBTC LOL) oCTC1O1) oe THC101) oFZ(101)¢ 


2 RH(101)6W(101)sCRAC100) 


<5 


COE NCCAPY@OOS41 1 LORD VOEE 


O.OGEN( Co dv eta P 


\(.88®N29-€C 16) VRRe 


(104340661089 % 0008 


= 


((™) Gee € OM AME 


CLOLPWSett 
oCLOLIR M4108 


2 ,BY(st 


M=50 
M1=M+1 
MI="-1 
DZ=1.0/4 
DZ2=DZ*DZ 
DZ4=DZ2*DZ2 
TMAX=15 
EPS=0. 1D-4 
w(m1)=0. 
wWN(1)=0. 
WN(M1)=0. 
TH(1)=0. 


DEFINE INITIAL W 


190 


11 


pO 10 K=2,™ 
A1=K 
W (K)=2.% (1.-A1/4) 


RAM1=-2.5 
RAM2=0.4 

pO 11 K=1,M1 
AZ=DZ* (K~1) 


FZ (K) =1.0+RAM1*AZ+RAM2¥*AZ**2 


IwWwi=18 
B=-2C00. 
AL=0. 
CL=DZ¥*AL/6.0 


pO 101 IR=1,4 
RA=1000.41000. *IR 
WA=0.6 

po 100 IwW=1,1481 
WA=WA+0.2 

WA2=WA*WA 

X 1=WA2*0DZ2/6.0 

X2= (WA2*DZ2) **2/360.0 
X3=X1/2.0 


T1=1.0-X14+X2 
T2=-4, 0-8. OF K1456.0¥*X2 
T3=6.0418.0*X 14246. 0¥*K2 
T4H=1.0-X3 

T5=-2. 0-10.0*X3 
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DO 12 K=2,M 
AW(K)=T71 
BW (K) =T2 
CW (K)=T3 
DW (K) =T2 
EW (K)=T1 
AT (K)=T4 
BT (K)=T5 
CT (K)=T4 
CONTINUE 


AT (2)=0. 

AT (M1) =2.¥*T4/ (1. 04CL) 

BT (M1) =T5=-10. OXCL*T4/ (1. 0+CL) 
cT (M1)=0. 


AWw(1)=0. 

BW(1)=0C. 
CW(1)=264.*x1-240, 

DW (1) =96.*X1-120. 
EwW(1)=0. 

AW(2)=0. 

CW (2) =247.*X24+17.¥*X1+7. 
CW (M)=13-T1 

DW (M) =T2-11./2.*T1 
EW(M)=0. 

AW (M1) =0. 

BW(M1)=0. 

CW (M1) =T3-11. /2.*72462.*T1 
DW(M1)=0. 

BW(M1)=0. 


C START ITERATION 


20 


21 


22 


IT=0 

IT=1T+1 

IF (IT.GT.IMAX) GO TO 1000 

DO 21 K=1,M1 

RH (K) =-DZ2*W (K) 

CALL TRID(AT,BT,CT,RH,CL,TH,™) 


CS=-12. 0*DZ2*WA2*B*TH (M1) 


DO 22 K=1,™1 

RH (K) =DZ4*WA2*RA*FZ (K) *TH (K) 

RH (M) =RH (M) #CS*T1/48.0 

RH (M1) =RH(™1) #CS* (T2/48.-7./6.*T1) 
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23 


24 


25 


26 


1000 


100 


101 
65 
50 
60 
61 


62 


63 
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CALL PENTDACAW, BW. CW sDWeEWesRHsCSsWNeM) 


A1=0.20 

A2=0-6 

DG 23 K=1.M1 
A1L=A14W CK ) **2 
A2Z=A24+WNCK) **2 
BN=B*DSQRT(AIL/ZA2) 


Ai=064 

A2=06 

DO 24 K=1.Ml1 
A1=A14DABS(WNCK)—-wOK)) 
A2=A24+DABSCWN(K)) 
ERR=Ai/A2 


IF (ERR-EPS) 1000325225 

CONTINUE 

DO 26 K=1.Ml1 

wW(K)=WN(K)*BN/B 

B=BN 

GO TO 20 

CONTINUE 

WRITE (6262) ITsWAsBNsERR 

ZY(1IW)=B 

CONTINUE 

WRITE (7,65) (ZYC(K) »K=15IW1) 

WRITE (6261) RAsALsRAM1»RAM2 

WRITE (6363) 

CONTINUE 

FORMAT (6613-6) 

FORMAT (8D10-e3) 

FORMAT (801526) 

FORMAT (*0%s*MARANGONI NO 0e=*2D112495X%e *AL=*eD1L1L)04s5Xo 
1 *RAMI=* 9D100395Xs*RAM2=* 901003) 

FORMAT (*0*% 5 *1T="s1305Xs "WAVE NOe=*2D12e5e5X» 
1 *RAYLEIGH NO ox=*® 2D1 407s 5X0 *ERROR="2D13-6) 
FORMAT (*&** xxx") 


STGP 

END 

SUBROUTINE PENTDA(A sB2CoDsEoF 0CSeWNoM) 

IMPLICIT REAL*¥8 (A-He0-Z) 

DIMENSION A(101)28€101)2C(101)eD( 101) sEC101) oF C101)>s 

1 WNC 101) 9 YC101) sH(101) sDE( 101) »OM(101)5BE(101)+GA(101) 


CM oMiW eS Delite H2s We WI EWE SWADACTN SS JJAD 
A ed bal 


«(TOLD Vet LORD MES 
(LOL AS eS LO0PRBSS 


10 


20 


30 


40 


10 


1 


at 


M1=M+1 

MI=M-1 

OM(1)=C (1) 

BE(1)=D(1)/70M01) 

GA@1)=E(1)970M(1) 

DE(2)=8(2) 

OM(2)=C(2)-DE(2)*BEC 1) 

BE (2)=(D(2)-DE(2)*GA(1))70M(2) 

GA(2)=E(2)/0M(2) 

DO 10 N=35M1 

DE (N)=B(N)—-ACN) ¥BECN—2) 

OM(N)=C(N)—ACN) ¥GACN-2) -DE(N) #BE(N-1) 

BE (N)=(D(N)—DE(N)*GA(N-1))70MON) 

GA(N)I=ECN)/GOMC(N) 

BE(M1)=0.2 

GA(M1)=0-6 

GA(M)=O0s 

H(1)=F(1)/0M(1) 

H(2)=(F €2)-DE(2)*HC1 9) 70M12) 

DO 20 N=3eMl 

HON) =(F (N)—-ACN) XHON=2)-DECN) XHON= 19) 70M0N) 

YIM1 )=HIM1) 

Y(M)=H(M)—-BE(M)*Y(M1) 

DO 30 KK=1.MI 

I=M—-KK | 

YC L)=HC1)-BEC I) *¥C 141)9-GACT)*Y(I+2) 

WN (2 = (56 0 RCV CLD FY (3 042470 ¥V (204104) 736020 

DO 40 K=3.MI 

WN CKD = CY CK=2 FY (K42 0 456% CY (K-10 + (K41) 4246 VUK) ) 73000 

WN(M) HCY CM“2 ) 456 0 XY (MI) 4245 0 FY (M) 450 0 S#VCM1 -CS748 0) 736000 

RETURN 

END 

SUBRCOGUTINE TRID (As B eCeoDeClseFFs™) 

IMPLICIT REAL*8 {(A-H»G-Z) 

DIMENSION A(101)2BC101)eC(101)oDC 101) sFC 101)» 
BP(101)2Q101)sH( 101) oFF C101) 


M1=M41 

MI=M-1 

BP (2)=C(2)78(2) 
a(2)=0(2)/7B(2) 

DO 10 K=35™M 

H(K)=B(K)-ACK) *BP( K-21) 

BP (K)=C(K)I/HIK) 

Q(K)=CD (KI -ACK  ¥Q(K=— 1) ZHEK) 
CONTINUE 
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30 


F (M1) = (0 (M1) A (M1) *O (4) ) 7 (B (M1) wA (1) *BP (™) ) 
DO 20 KK=2,™ 

K=M1-KK+1 

F (K) =Q (K) ~BP (K) *F (K+1) 

CONTINUE 

F(1)=0. 

DO 30 K=2,™ 

PF (K) =(F (K-1) +10. *F (K) +F (K+1))/12.0 
CONTINUE 

FF (M1) =(F (M)+5.*F (M1))/ (6.* (7-4CL) ) 
RETURN 

END 
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COMPUTER PROGRAM FOR CHAPTER Ix 


PROGRAM FOR THE CASE OF BLAUSIUS FLOW 

IMPLICIT REAL*8 (A-H,O~Y) 

DIMENSION F (6401) ,FD (6401) , FDD (6401) , TA (6401) ,TD (6401), 
VF (6401) , VFD (6401) , TI (6401) , ETI (6401) ,G (1601) 
,AU (1601) ,BU (1601) ,CU(1601) ,AV (1601) ,BY (1601) ,CV (1601) 
,DV (1601) ,EV (1601) ,AT (1601) , BT (1601) ,CT (1601) 
,PU (1601) ,PV (1601) ,TH (1601) , VN (1601) 


PR=0.01 
M=1600 
ME1=260 
HD=0.04 
IMAX=20 
EPS=0. 10-5 
M4=M+4 
MI=M~1 
M12=M1*2-1 
M14="M1*4-3 


C CALCULATE THE BASIC FLOW SOLUTION 


H=HD*0.25 

H2=H*H*0.5 

F(1)=0. 

FD(1)=0. 

FDD (1) =0.3320573374D0 

pO 10 K=2,M14 

I=K-1 

YO=F (I) 

V10=FD (1) *H 

V20=FDD (1) *H2 

C1==-YO*V20*H3 
=YO+V10*0. 54+ V20*0. 254+C1*0.125 
y2=V20+C1*1.5 

C2=-Y¥*V2*H3 
V2=V204C2*1.5 

C3=-¥*V 2*H3 

Y=YO+V 10+V20+C3 
V2=V20+C3*3 

Cu=-¥*V 2*H3 

C5= (9*C 146% (C24+C3) =C4) *0.05 

C6=C14+C24C3 

C7=0.5* (C1#C4) +C24C3 


. (Pose) OF, (FOH8) AP 
(roerpa, @ 

(FOSry Vo, (FOS Pa, FF 
(fT OOP) TD, (FF 


LO 


F (K) =¥O+V10+V204C5 
FD (K) = (V10+2*V20+4C6) /H 
FDD (K) = (V204#C7) /H2 
40 CONTINUE 
rs 
C CALCULATE THE BASIC TEMPERATURE PROFILE 
CALL DQSF(H,F,TI,M14) 
Cc 
pO 11 K=1,m14 
TI (K)=-0.5*PR*TI (K) 
ETI (K) =LDEXP (TI (K)) 
11. CONTINUE 
CALL DOSF(H,ETI,TI,§14) 
pO 12 K=1,"14 
TA (K) =1-TI (K) /TI (M14) 
TD (K) =-ETI (K) /TI (14) 
X=H* (K-14) 
VF (K) =0.5* (X*FD (K) ~F (K)) 
VFD (K) =0.5*X*FDD (K) 
12 CONTINUE 


WRITE (6,60) PR 
WRITE (6,61) 
DO 13 K=1,"14,50 
X=H* (K-1) 
43 WRITE (6,62) X,F (K) ,FD(K) ,FDD(K) VF (K) »VFD (K) ,TA(K) TD (K) 
60 FORMAT (1HO, 'PRANDTL NO.=',D10.3) 
61 FORMAT (1HO, uX,?X", 10X,"F", 15X,"ED", 14X,"FDD',13X,'VF%, 4X, 
1 ‘'yFD',13X,'TA',14X,*TD*) 
62 FORMAT (D10.3,7D16.7) 


CALCULATE THE PERTURBATION SOLUTION 


aaaga 


pu(1)=0. 
pu(M1)=0. 
TH(1)=0. 
TH(M1)=0. 
pv(1)=0. 
py (M1) =0. 
vN(1)=0. 
vVN(M1)=0. 
DEFINE THE INITIAL VALUE OF PV 
WRITE (6,64) 
DO 15 K=1,M™1 
C5=3. 141592653 5D0* (K-1) 


Q 


(4) OT, (A) AT, (A) OTT TD 
ar OV" MEP, SOT? BOP, 
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PV (K) =DSIN (C5/M) 
CONTINUE 

H=HD 

H2=H*H 

H3=H2*H 
H4=H3*H 

TwW1=20 

GR=5000. 

WA=0. 

DO 101 IW=1,1¥81 
WA=WA+0.004 
WA2=WA*WA 


C DEFINE THE MATRICES 


16 


C7=H2*WA2Z/12 

DO 16 K=1,¥"1 

I=K*4=-3 

C1=H¥*VPF (I) *0.5 
C2=H2* (VFD (I) -WA2)/12 
C3=-H2* (2*WA2+tVFD (I))/12 
C4=C1*WA2*H2 

C5=WA2*H4* (WA2+VFD (1) ) /360 
C6=C 1¥*PR 

AU (K) =14+C1#C2 

BU (K) ="2+10*C2 

CU (K) =1-C1+C2 

AV (K) =14+C014C3+4C5 

BV (K) =~ 4=C 148*C3-C44+56*C5 
CV (K) =6-18*C3+ 246*C5 

DV (K) =-44C148*C3 +C4+56*C5 
EV (K) =1-C14#C3+C5 

AT (K) =14+C6-C7 

BT (K) =-2-10*C7 

CT (K) =1-C6~C7 

CONTINUE 

AU (2)=0. 

cu(M)=0. 

AT (2)=0. 

CT (M)=0. 

CV (1) =— 246*AV (1) +CV (1) 

DV (1) =-112¥*AV (1) +BY (1) +DV (1) 
AV(1)=0. 

BY (1)=0. 

EV(1)=0. 

CV (2) =AV (2) +CV (2) 

CV (M) =CV (M) +EV (M) 


4.42 
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EV (M)=0. 

BV (M4) =BV (M1) +DV (M1) -112*EV (M1) 
CV (M41) =CV (M1) -246*EV (M1) 

AV (M1)=0. 

Dv(M1)=0. 

EV (M1)=0. 


START THE ITERATION 


20 


ITE=0 
ITE=ITE+1 
IF (ITE.GT.IMAX) GO TO 100 


CALCULATE THE PU 


21 


28 


DO 21 K=2,ME1 

T=K*4=3 

G (K) =H2¥*FDD (I) *PV (K) 
CONTINUE 

CALL TRID({AU,BU,CU,G,PU,ME1) 
DO 28 K=ME1,M1 

PU (K)=0. 


CALCULATE THE TH 


22 


DO 22 K=1,M™1 

T=K*4-3 

X=H* (K~1) 

G (K) =H2¥*TD (1) *PR* (PV (K)-0.5*X*PU (K) ) 
CONTINUE. 

CALL TRID(AT,BT,CT,G,TH,M) 


CALCULATE THE YN 


23 


pO 23 K=1,"1 

I=K*4-3 

G (K) =H4*WA2*GR*TH (K) 

CONTINUE 

CALL PENTAD(AV,BV,CV,DV,EV,G,VN,M) 


CALCULATE THE NEW GRASHOF NUMBER 


24 


c1=0 

c2=0 

pO 24 K=1,M1 
C41=C74PV (K) *PV (K) 
C2=C2+VN (K) ¥VN (K) 
CONTINUE 
GRN=GR*DSORT (C1/C2) 


CHECK THE CONVERGENCE 


c1=0 
c2=0. 
po 25 K=1,M1 


ho 


43 


C1=C14+DABS (VN (K) PV (K)) 
C2=C2+DABS (VN (K) ) 
25 CONTINUE 
ERR=C1/C2 
IF (ERR-EPS) 100,26, 26 
C READJUST PY 
26 CONTINUE 
DO 27 K=1,M1 
PV (K) =¥VN (K) *GRN/GR 
27 CONTINUE 
GR=GEN 
GO TO 20 


100 CONTINUE 
WRITE (6,73) ITE,PR,WA,GRN,ERR 
101 CONTINUE 


64 FORMAT (1H1, ‘STABILITY SOLUTION') 
70 FORMAT (8D15.6) 
71. FORMAT (10F8.5) 
73 FORMAT (1HO,"ITE=',14,3X,*PR=",D10.3,3X,"WAVE NO.=",D12.4,3X, 
4 ‘'EIGENVALUF=",D20.10,3X, *ERROR=",D12.5) 
STOP 
END 
SUBROUTINE TRID(A,B,C,D,FF,4%) 
IMPLICIT REAL*8 (A-H,O~2Z) 
DIMENSION A(1601) ,B (1601) ,C (1601) ,D (1691) , F (1601) ,BP (1601) 
4 ,0(1601) ,H (1601) , FF (1601) 
MI=M—1 
M1=M+1 
BP (2) =C (2) /B (2) 
Q (2) =D (2) /B (2) 
pO 1 K=3,MI 
H (K) =B (K)~A (K) *BP (K~1) 
BP (K) =C (K) /H (K) 
O (K) =(D (K) -A (K) #0 (K-14) ) /H (RK) 
1 CONTINUE 
F (M) =(D (M)—A (M) *O (MI) ) 7 (B (™) ~A(M) *BP (MI) ) 
DO 2 KK=2,MI 
K=M1=-KK 
F (K) =O (K) BP (K) *F (K+1) 
2 CONTINUE 
FF (2) = (10.DO*F (2) +F (3))/12 
pO 3 K=3,MI 
FF (K) = (F (K-17) #10. DO*F (RK) +F (K+1)) /12 
3 CONTINUE 


o | ; 


} 
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30 
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FF (M)=(F (MI) +10*F (M)) /12 

RETURN 

END 

SUBROUTINE PENTAD(A,B,C,D,E,F,WN,M) 

IMPLICIT REAL*8 (A-H,0-Z) 

DIMENSION A (1601) ,B (1601) ,C (1601) ,D (1601) , £ (1601) ,F (1607) 
1 /H (1601) ,¥ (1601) ,WN (1601) ,DELT (1601) ,ONGA (1601) , BETA (1601) 
2 ,GAMM (1601) 

MI=M~1 

M1=M4+1 

OMGA (1) =C (1) 

BETA (1) =D (1) /OMGA (1) 

GAMM (1) =E (1) /OMGA (1) 

DELT (2) =B (2) 

OMGA (2) =C (2)-DELT (2) *BETA (1) 

BETA (2) =(D (2) ~DELT (2) *GAMM (1) ) /OMGA (2) 

GAMM (2) =E (2) /OMGA (2) 

DO 10 N=3,M1 

DELT (N) =B(N)—A (N) *BETA (N=2) 

OMGA (N) =C (N) -A(N) *GAMM (N~2) ~DELT (N) *BETA (N~1) 

BETA (N) = (D (N) ~DELT (N) *GAMM (N~1) ) /ONGA (XN) 

GAMM (N) =E(N) /OMGA (N) 

BETA (M1)=0.D0 
GAMM (M1) =0. D0 
GAMM (M)=C.DO 

H (1) =F (1) /OMGA (1) 

H (2) =(F (2) ~DELT (2) *H (1) ) /OMGA (2) 

DO 20 N=3,M1 
H (N) = (F (N) <A (N) 8 (N= 2) ~DELT (N) *H (N~ 1) ) /OMGA (N) 
¥ (M1) =H (M1) 

¥ (M) =H (M)-BETA (M) *¥ ("1) 
pO 30 KK=1,MI 
I=M~KK 
¥ (I) =H (I) BETA (I) *¥ (1+1) -GAMM (I) *¥ (T*2) 

WN (2) = (S6*Y (1) #247#¥ (2) +56*¥ (3) #¥ (4) ) 7360 

po 40 K=3,MI 

WN (K) = (¥ (Ro2) #56*¥ (K-1) #246*Y (K) +56*Y (K#1) +¥ (K+2)) 7360 
CONTINUE 

WN (M) = (Y (WH2) #56 *Y (MI) #247*¥ (M) +56*Y (81) ) 7360 

RETURN 

END 
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PROGRAM FOR CHAPTER X 


DECK FOR MAXIMUM DENSITY 


IMPLICIT REAL*8 (A-H,0-Z) 

DIMENSICN F (1601) .FD(1601)»FDD(1601) »TA(1601)+TO(160) 
»VF (1601) »VFD(1601).T1(1601) ,.ETI( 1601) sEV(4C1) 
sAU(401)eBU(401) »CU(401)sAV(401 )»BV(401) sCV{(401) 


1 

x 

4 5AT(401)sBT(401) 5CT(401) »PV(401 ),PUC401)s TH(401) 
2 


2DV(401)+G6(401) 
COMMON /B/MsM14MI 


PR=10.D0 
HD=0 202 
M=270 
IMAX=15 
EPS=0.1D-4 
M1=M+4+1 
MI=M-1 
M12=M1* 2-1 
M14=M1%*4-3 


C CALCULATE THE BASIC FLOW SOLUTION 


H=HD*0 225 

H2=H*¥H*O 2S 

H3=H/60_ 

F(1)=C-. 

FD(1)=0+8 
FDD(1)=023320573374D0 
DO 10 K=2sM14 

I=K-1 

YO=F (1) 

V10=FD(1)*H 
V20=FDD( 1) *H2 

C1=-YCO* V20*H3 
Y=YO*+1V10%0e54+V20*0.25+C1*00125 
V2=V20+C1*1e.5 

C2=-Y*¥ V2*H3 

V2=Vv 20+C2¥*1-5 
C3=-Y*V2*H3 
Y¥=YO#V1G6+V20+C3 
V2=V20+C3*3 
C4=-Y*V2*H3 

C5=( O¥C 14+6* (C24+C3)—-C4)*0205 
C6=C14C24+C3 

C7=H=0 2 5* (C14C4) +C24+C3 
F(K)=YO+#V1I04+V20+CS 


ik. SETiARe Alt /asooRs 


YIeva0 ayninae 


(OSf DOF se COST ATs € LOB EPGO%N 
(19¢?V3e¢tOaRDI 

(16 W206 108) Get 
(1 Oe DT of 108 Ferte 


ALE 


FD(K )=(V1042*V204+C6) 7H 
FOD(K)=(V204C7)/H2 
10 CONTINUE 


C CALCULATE THE BASIC TEMPERATURE PROFILE 
CALL DQSF{HsFeTI»M14) 


DO 11 K=1sM14 
TI(K)=—-O0.5*PR*ATI(K) 
ETI(K)=DEXP(TICK)) 

ii CONTINUE 
CALL ODGSF(HsETIsTI»M14) 
DO 12 K=1.,M14 
TACK) =—-TICK)I/STIG(M14) 
TOC KI=—ETIC(KISTIC(M14) 
X=H*¥(K-1) 
VF CK )=0 0 S*(X*FDIK)—F (K)) 
VF D(K)=025*X*FDD(K) 

12 CONTINUE 


WRITE (660) PR 

WRITE (6261) 

DO 13 K=12M14210 

X=H*(K-1) 
13 WRITE (6962) XsE(K) 9 FD(K) sFOD(K) 9 VF (K) os VFD(K) s TACK) s TOK) 
60 FORMAT (1HOs *PRANOTL NO e=* 2010-3) 
62 FORMAT (D10.3s7D1607) 


CALCULATE THE PERTURBATICN SOLUTION 


Oa 


PU(M1)=0-+ 
TH(1)=0-6 
TH(M1)=O05 
PV(1)=06 
VN(1)=06 
VN(M1)=06 
H=HD 
H2=H*H 
H3=H2*H 
H4=H3*H 
C DEFINE THE INITIAL VALUE OF PV 
pO 15 K=1eM1 
C5=321415926535D0*%*(K-1) 
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PV(K)=DSIN(CS/M) 
CONTINUE 

FORMAT (30103) 
RA1L=—0e5 

RA2=028 

WRITE (6271) RA1,RAS!Y 
Iwi=15 

WA=1.46 

DO 161 IW=1,IwWwl 
WA=WAt0 2.02 
GR=100-D0 

DO 14 K=1.Ml1 

I=K*4-3 

TI(K J=1 e-RAL TAC I) FRAZ¥TAC I) *%2 
CONT INUE 

WwA2=WAx WA 


C DEFINE THE MATRICES 


16 


C7=H2*xwA2/12 

DO 16 K=1.M1 

1=K*4-3 

C1I=H*VF (1)*025 

C2=H2*( VFD(1)-wWA2)/12 
C3=-H2* (2*WA24VFD(1))712 
C4=C1*WA2*H2) 

C5=WA2*H4*({ WA2Z4+VFD( 1997360 
C6=C1*PR 

AUC K )=14C14#C2 

BU (K )=—-24+10*C2 

cu(K )=1-C1i+C2 

AV (K )=14C14C3+C5 

BY (K )=-4—-C14+8*C3-C44+S56*CS 
CV (CK )=6-18*C34+246¥*CS 

DV (K )=-44C148*C3+C4+56%*C5 
EV(K )=1—-C1+C3+C5 

ATCK )=14C6-C7 

BT (K )=—2-10*C7 
CT(K)=1-C6-C7 

CONTINUE 

CU{(M)=O0-6 

AT(2)=0-6 

CT(M)I=0 « 
CV(1)=—-246*AV(1)4CV01) 
DV(1)=-112*AV(1)4+B8V01)40V01) 
AV(1)=0-6 


LAS 


BV(1)=0-. 

Evi1)=0-6« 

CV(2)=AV(2)4+CV( 2) 

AV(2)=O06 

CV(M)=CV(M)+EV(M) 

EV(M)=0-64 

BV(M1)=BV(M1 )4DV(M1)-112¥*EVIM1) 
CV(M1)=CV(M1)-246%*EV (M1) 
DV{M1)=O-56 

Ev(M1)=Ce 


START THE ITERATION 


20 


ITE=0 
ITE=ITE+1 
IF (ITE *«GTeIMAX) GO TO 100 


CALCULATE THE PU 


21 


DO 21 K=2s™M 

I=K*4-3 

G(K)=H2*FDD( 1)*PVCK) 
CONTINUE 

CALL TRID{(AUsBUsCUsG sPU) 


CALCULATE THE TH 


a2 


DO 22 K=15Ml1 

I1=K*4-3 — 

X=H*(K-—1) 

G(K)=H2 *PRETD C1) *( PV (K)—0 0 S#X#PULK) ) 
CONTINUE 

CALL TRICCATs» BT eCTsGsTH) 


CALCULATE THE VN 


23 


po 23 K=1.Ml1 

GUK )=—-H4 #WA2ZTI CK) *GR¥THCK) 
CONTINUE 

CALL PE NTAD( AV» BVsCV sDV+EVsGe VN) 


CALCULATE THE NEW GRASHGF NUMBER 


24 


c1=0 

c2=0 

pO 24 K=1,.M1 
C1=Ci+P VK) *PV(K) 
C2=C24+VNCKI*VNIK) 
CONTINUE 
GRN=GR*DSQRT(C1/C2) 


CHECK THE CONVERGENCE 


c1i=0 


mit es 
Sih aes 


Se: ~ i 


om i 


25 


49 


C2=O00 

DO 25 K=1.Ml1 
C1=C14DABS(VNCK)-PVCK)) 
C2=C24+DABS(VN(K)) 
CONTINUE 

ERR=C1/TC2 

IF (ERR-EPS) 100226526 
ERR=DABS((GRN-GR)/GRN) 


READJUST PV 


26 


2? 


100 


101 
61 


66 
67 
68 
70 
Tt 
Be 


CONTINUE 

DO 27 K=1.M1 

Py (K)=VN(K)*GRN/GR 
CONTINUE 

GR=GRN 

GO TO 20 


CONTINUE 

WRITE (6373) ITEsPR»WAsGRNsERR 

WRITE (6,66) 

WRITE (6270) (PV(K) »K=15M125) 

WRITE (6267) 

WRITE (62,70) (PUCK) »K=15M1s5) 

WRITE (6268) 

WRITE (6270) (THK) »K=19M155) 

CONTINUE 

FORMAT (1H0O> 4X o*X* gl1OXe*F* g15Xo* FD" 514X%s*FDD* o13Xe*VF® 
1 514X%—e *VED%s 13Xe*TA® 914X0* TD") 

FORMAT (1HO. *THE PERTURBED QUANTITIES IN Y DIRECTION® ) 
FORMAT (1HO, * THE PERTURBED QUANTITIES IN X DIRECTION® ) 
FORMAT (1HOs * THE PERTURBED QUANTITIES IN TEMPERATURE ®) 
FORMAT (6D15-6) 

FORMAT (1H1>s ®RAMDA 1=49 2D120495Xs *RAMDA2="sD1204) 

FORMAT (1HOs * 1 TE=" 01 493X0*PR=* 9D100393Xs* WAVE NO.e=? 

1 ,D1 205 o3Xs "EI GENVALUES=* 5D2001093Xs *ERROR=" »D1205) 

STOP 

END 

SUBROUTINE TRID(AsB eC eDsFF) 

DOUBLE PRECISION A( 401) oB8(401) 5C( 401) D0 401) sF (401) sBP(401) 
i 2Q(401)sH(401) sFF( 401) 

COMMON /B/MsM15MI1 

BP(2)=C(2)78(2) 

a(2)=0(2)78(2) 

DO 1 K=35MI 

H(K)=B(K)—-ACK) *®BP(K— 1) 


for 
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BP(K)=C(K)/H(K) 

Q(K)=(D CK -ACK DP FQC K-19) ZHOK) 

CONTINUE 

F (M)=(D (M)—-ACM) ¥Q(M19)70B(M)-A(M) ¥BPOMID) 

DO 2 KK=2,MI 

K=M1—-KK 
F(K)=Q(K)-BP(K) *F(UK4+1) 

CONTINUE 
FF (2)=(10.-D0*F(2)4F(02))712 

po 3 K=3.MI 

FF (K)=(F (K-1 9410 .D0*F(K)4F(K41))9712 

CGNT INUVE 

FF (M)=(FUMI )410%F(M) 0712 
RE TURN 

END 

SUBROUTINE PENTAD(A sBeCeDsEoF WN) 

DOUBLE PRECISION A( 401) 98(401) sC( 401) s&(401).F (401) 
i 5D(401) sDELT( 401)» Y(401) sWN(401) sOMGAC401) 
i 3H(401)+8ETA(401)sGAMM(401) 

COMMON /8/MsM15MI 

OMGA{1)=C11) 

BETA(1)=D0(1)/0MGA(1) 

GAMM(1)=E(1)/0MGA(1) 

DEL T(2)=812) 

OMGA (2)=C(2)-DELT(2) #BETA(1) 

BETA(2) =(D(2)-DELT (2 )*GAMM(1))70MGAC2) 

GAMM(2)=E(2)/70MGAC2) 

DO 10 N=3sMi1 
DELT(N)=8(N)—-ACN) ¥BETALN-2) 

OMGA(N) =C(N) ACN) #GAMM(N=2)—DELT(N)*BETA(N-1) 
BE TA{N) =(0(N)—-DELT ( N)*GAMM(N=1))70MGACN) 

GAMM(N)=E(N) /GMGAIN ) 

BETA(M1 )=0.2D0 
GAMM(M1 )=02D06 

GAMM{M)=0eD0 

H(1)=F(1)/70MGA(1) 

H(2)=(F (2)-DELT(2) *H(1)) ZOMGAC2) 

DO 20 N=3eMl1 

HON) =CF ON) ACN) HON=2)-DELT (N) #HON~1) )ZOMGACN) 

Y(M1)=H(M1) 

Y¥(M) =HOM)-BETA(M) *Y (M1) 

DO 30 KK=1.MI 

I=M—-KK 

¥CL)=HCL)—BETACI) #¥ C141 )-GAMMCI) *V(T +2) 
WNC 2)=CSOKY C1) 4247 Y (2) 456 ¥¥ (3) +¥ (4797360 
pO 40 K=3eMI 
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40 
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WN (CK = CYC K—-2 ) 456 *Y( K-1)4+246%Y (K) 456% Y(K41) +Y (K42) 7360 
CONTINUE 

wNOM)=CYCM—2 456*Y (MI) 4247%Y(M)456*YCM1)) 7360 

RETURN 

END 
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